1982 


APR 1982 


COPYRIGHTS 
MADE IN USA 


RICHE ob OR oa 


ion STOO 
lee 40 Peas | 


—- a ae 


Pe aa 


— rR ieaD 


one eo oti 


’ 

EET ER py CMe 
ee 
: Rs eo oe 
) ee RRS 


co 
= 
8 
+ i 
un 
© 
tae 
ao 
cc 
o- 
— 
cc 
Oo 
Lui 
o- 
oO 


beh tens FO Lal Da = Lb bee ¢ : .o 4 tee Gras wae 
Pu to UL Paay Cra : : a 3 a ao = ce aver PY 
. oS aE 7s *2 er is ss = Tog eg ge gg 
Se “Praeger ToT IT : Ts « te 4 Sete oe To 


Siu? tT: 
CUKDIAO 


. 9e oe: vee 
'. EEEser 


se Smt 
So) mumic 


L447 e235 


ses2 es - 
S¥Licriit 


ADF LIB 





—— ee ee tA A A A ma 


B 1 
/238 SLU LTC _REPR DIAG DNMAC X24.07-563 O2-FEB-82 16:42 PAGE 1 
; 2 cF81 16:08 SEQ 0001 


~~ e 
€ 

v 
ne 
—_ 


-REM 2% 
IDENTIFICATION 
PRODUCT CODE: AC-TOS2A-MC 
PRODUCT NAME: CJKDIAO 11/23B SLU LTC REPAIR 
PRODUCT DATE: SEPT-81 
MAINTAINER: DIAGNOSTIC ENGINEERING 
THE INFORMATION IS THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 


EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
~~ paampaala FOR ANY ERRORS THAT MAY APPEAR IN THIS 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C): 1982 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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BASIC DEFINITIONS 
ACT11 HOOKS 
APT Age BLOCK 


OMMON TAG 
APT MAILBOX~ETABLE 
ERROR POINTER TABLE 


T TEST ABILITY TO ACCESS SLU1 T 

T TEST SLU1 TCSR BIT F<DONE), CLEARS oe a+ IS LOADED 
v4 TEST THAT SLU1 T ONE*’ SETS WIT 

T5 TEST ABILITY TO ACCESS SLU1 RCS 

T6 TEST ABILITY TO ACCESS 


SLU1 RBUF 
TEST THAT SLU1 BIT6(XMIT INT EN) CAN BE SET & RESET 
TEST THAT SLU1 BIT6 OF RCSR pe SET & RESET 


TEST ABILITY TO ACCESS SLU2 TBUF 

TEST SLU2 TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 
TEST THAT SLU2 TCSR ‘'‘DONE’’ SETS WITH RESET 

TEST ABILITY TO ACCESS SLU2 RCSR 

TEST ABILITY TO ACCESS SLU2 RBUF 

TEST SLU2 BITO(BREAK BIT) CAN BE SET & “see hi 


TEST watt at TO ACCESS LKS 

TEST 6 OF LKS CAN BE SET & RESET 

UNI QUE HINTERNAL ADDRESS TEST 

TEST THAT SLU1 XMIT INTERRUPTS ONLY WHEN ENABLED 

TEST SLU1 XMIT pd egal DO NOT OCCUR WHEN DISABLED 
TEST SLU1 TRANSMITTER FOR DOUBLE INTERRUPTS 

TEST THAT SLU1°XMIT INTERRUPT CLEARS WITH LOADING TBUF 
TEST THAT SLU2 XMIT INTERRUPTS ONLY WHEN ENABLED 

TEST SLU2 XMIT phage DO NOT OCCUR WHEN DISABLED 
TEST SLU2 TRANSMITTER FOR DOUBLE INTERRUPTS 

TEST THAT SLU2 XMIT INTERRUPT CLEARS WITH LOADING TBUF 
137 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABL 
T40 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 
141 TEST SLU2 RECEIVER FOR DOUBLE INTERRUPTS 
T42 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 

143 TEST SLU2 THAT RESET CLEARS RECEIVE INTERRUPT 

144 TEST SLU2 THAT ‘OVERRUN & ERROR’ BITS CAN BE SET 


HAT BREAK L_ZEROES 

146 —«‘TEST THAT "'FR'’ ERROR CAN BE SET DURING BREAK 

147 —«*TEST DATA PATHS USING WRAP CABL 

150 TEST THAT THE REAL TIME CLOCK INTERRUPIS PROPERLY 
TC_FOR DOUBLE INTER 


RTC FOR D RUPTS 
T52 TEST THAT RTC INTERRUPT CLEARS WITH RESET 
pe - its ALL INTERNAL OPTIONS SIMULTANEOUSLY 


ROUTINE 
ERROR MESSAGE TYPEOUT ROUTINE 
POWER DOWN AND UP ROUTINES 
SCOPE HANDLER ROUTINE 
APT COMMUNICATIONS ROUTINE 
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1.0 GENERAL PROGRAM INFORMATION 


1.1 ABSTRACT 


THIS PROGRAM TESTS BOTH SERIAL LINE UNITS (SLU'S) AND THE LINE TIME 
CLOCK (LTC) ON THE M8189 MODULE. ITS MAIN PURPOSE IS TO PROVIDE SCOPE 
LOOPING FOR REPAIR PERSONNEL. 
ERROR Tig a ie IDENTIFY A FUNCTION 

BEING DONE OR A FUNCTION THAT roe AND TO WHAT LOGICAL PORTION OF 
THE BOARD IT FAILED ON (1.E., TRIED TO SET BIT 6 ON CSR OF SLUI). 
THIS PROGRAM IS BASICALLY A REWRITE OF THE DL11-W DIAGNOSTIC AND 
THEREFORE IS WRITTEN IN MACRO-11 USING THE SYSMAC MACRO PACKAGE. IT 
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1S COMPATIBLE WITH ALL EXISTING MANUFACTURING AND FIELD SERVICE AUTO~ 
MATED TEST SYSTEMS. 
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1.2 SYSTEM REQUIREMENTS 
A. HARDWARE REQUIREMENTS 
- 11/238 CPU MODULE 
- MINIMUM 8K OF MEMORY 
- TURN AROUND JUMPER INSTALLED ON SLU2 
B. SOFTWARE ENVIRONMENTS 


XXDP STAND-ALONE 
XXDP CHAIN MODE 
APT 

ACT 

SLIDE 
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1.3 RELATED DOCUMENTS AND STANDARDS 


- DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION FOR 11/24 ON 
BOARD OPTIONS TEST 
BGI-79-004-00-U 


- STANDARD APT SYSTEM TO PDP-11 DIAGNOSTIC INTERFACE REV. 15 
16-FEBRUARY~76 APT SYSTEM GROUP 


- DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 
175-003-009-02 
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1.4 PREREQUISITE DIAGNOSTICS 


THIS PROGRAM ASSUMES THE CORRECT OPERATION OF THE CPU INSTRUCTION SET. 
THIS IS TO BE VERIFIED BY EITHER. 


CJKDBXX DCF11-AA CPU DIAGNOSTIC 
CUKDEXX F117 QUICK TEST 


1.5 ASSUMPTIONS 


IT IS ASSUMED THAT THE CONSOLE DEVICE THAT IS CONNECTED TO SLU1 IS OP- 
ERATING CORRECTLY. If THE TERMINAL IS NOT OPERATING CORRECTLY FALSE 
INDICATIONS CAN BE EXPECTED. 
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2.0 OPERATING INSTRUCTIONS 
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2.1 LOADING AND STARTING PROCEDURES 
USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES. 


2.1.1 STARTING PROCEDURE - 


And hi REGISTER WITH SETTING (SOFTWARE SWITCH REGISTER LOCA- 


A. START AT 200. 
AFTER CHECKING THE TRANSMITTER, THE PROGRAM WILL PRINT ITS 
IDENTIFICATION AND REPORT THE NUMBER OF DEVICES UNDER TEST 
(NUMBER IS OCTAL). ‘‘END PASS'' IS PRINTED AFTER A FULL PASS 
HAS BEEN MADE ON ALL DEVICES UNDER TEST. 


B. START AT 204. kee eNOTE see 
THE "‘ECHO'’ TEST WILL BE EXECUTED. AN ‘’*’’ IS PRINTED AT _ THE 
BEGINNING OF THE TEST. THE ECHO TEST READS A CHARACTER FROM 


SLSLSSSSBVVSSPMBMB IN IVISSe 


1 THE TERMINAL, WRITES THAT CHARACTER TO THE TERMINAL, AND RE- 
M4 PORTS ANY ERROR FLAGS SET IN THE RECEIVER BUFFER. A 
3 CONTROL=C (*C) HALTS THE TEST AND PRINTS ‘'STOP’’ AT THE TERMI- 
: NAL CONTINUING RESTARTS THE ECHO TEST. 
S C. START AT 210. eke eNOTE ex 
98 
199 THE TERMINAL OUTPUT TEST WILL BE EXECUTED. DEPRESSING ANY 
200 CHARACTER AT THE TERMINAL HALTS THE TEST. CONTINUING RES-~ 
201 TARTS THE TEST. THE TEST OUTPUTS 32 CHARACTERS ON A LINE AND 
so¢ REPEATS THE PATTERN EVERY __THREE LINES. THE PATTERN IS AS 
20 FOLLOWS (OCTAL CODE 040 --> 377): 


204 

205 

206 THIS BOTTOM LINE COULD BE THE FOLLOWING IF THE TERMINAL DOES 
soe NOT HAVE LOWER CASE: 

44 @ABCDEF GHI JKLMNOPQRSTUVWXYZC CUPPER CASE ALPHA] 
211 

212 

213 

oie 2.2 PROGRAM OPTIONS 

216 

217 BIT15 - HALT ON ERROR 

218 BIT14 - SCOPE LOOP 

219 BIT13 - INHIBIT ERROR TYPEOUT 

220 BIT12 - UNUSED 

221 BIT11 - UNUSED 

222 BIT10 - INHIBIT ERROR FLAGS TEST 
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BITO9 - LOOP ON ERROR 
BIT08 - UNU 
B1T07 - DISABLE SLU2 DATA TEST 
1T06 ~- INHIBIT LTC TESTS 
BITO5 - INHIBIT ALL SLU TESTS (BOTH SLUS) 
BIT04 - INHIBIT SLU] TESTING 
BITO3 - INHIBIT SLU2 TESTING 
BITO2 - UNUSED 
BIT01 ~- UNUSED 
BITOO ~ UNUSED 


E 
TENTS. OF THE SOFTWARE SWITCH REGISTER DURING EXECUTION. TO DO THIS 
E A ''CNTL G'' (TYPING A ‘'G'’ WITH THE ' . 
TIME). THIS IS PROCESSED AT KEY TIMES DURING 
PROBLEM CAN 


CC E 

SOLE DEVICE . IF THIS HAPPENS IT 
SHOULD NOT CAUSE AN ERROR BUT THE ‘'CNTL G'' MAY BE LOST, SO IF THE PRO- 
GRAM DOES NOT RESPOND TO THE FIRST ‘‘CNTL G'’ TYPE A FEW MORE UNTIL THE 
RESPONSE IS RECEIVED. WHEN THE ‘‘CNTL G’’ IS RECEIVED THE PROGRAM WILL 
RESPOND WITH: 

SWR = XXXXXX NEW = 
WHERE XXXXXX IS EQUAL TO THE PRESENT SWITCH REGISTER CONTENTS IN 
OCTAL. THE OPERATOR CAN THEN TYPE; 

1. <CR> IF NO CHANGES ARE TO BE MADE. 

é. e.0ene> <CR> TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 


3. CONTROL-U IF THE OPERATOR MAKES AN ERROR WHILE INPUTTING THE 
NEW SWITCH REGISTER SETTING. 


2.53 EXECUTION TIMES 


1ST PASS RUNTIME(WORST CASE).....eeeeeeecees 15 SECONDS 
LONGEST TEST TIME......eeesueses pecesvcesere 12.5 SECONDS 
ADDITIONAL RUN TIME(EXTRA UNITS)........20-. NONE 

LONGEST PASS TIME... ccceccccvcesccrscccccces 15 SECONDS 


3.0 ERROR INFORMATION 


3.1 ERROR REPORTING PROCEDURES 
IF A ROUTINE FAILS AND THE INHIBIT ERROR TYPEOUT (BIT13) OF THE SWR IS 


SEQ 0008 
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$f) NOT SET, A PRINTOUT RESULTS IN THE FORM: 
81 "(SOME ASCII MESSAGE)*’ 
8 TEST ERR PC RCSR CANY APPLICABLE DATA HEADINGS 
Sat KKKKKX  XMXMXXK  XXXXXX  CANY APPLICABLE DATAJ 
285 NOTE: "'RCSR'' IS DEPENDENT ON THE FAILURE THEREFORE 
sae COULD BE TCSR, RBUF, TBUR, OR LKS 
$85 WHERE ""XXXXXX"' IS AN OCTAL NUMBER. 
THIS ERROR PRINTOUT OCCURS PROVIDED THE ERROR THAT EXISTS WOULD NOT 
91 HINDER THE TYPEOUT. IN CASES WHERE IT IS NOT POSSIBLE TO PRINT AN 
29 ERROR MESSAGE (I.E. _FATAL CONSOLE TRANSMITTER FAILURES), A_ HALT 
soz CCURS. (SEE SECTION 3.2 FOR ERROR HALT INFORMATION.) 
5 
298 OR SOFTWARE SWITCH OPERATION, 
$56 SWITCH REGISTER CAN BE HANGED BY TYPING 
A CONTROL=G AT THE CONSOLE DURING ERROR 
4 PRITNOUTS. A CONTINUING FROM THE 
¢ ERROR HALT THE OLD SWR CONTENTS IS_DIS~ 
30 PLAYED AND THE NEW CONTENTS CAN BE EN- 
TERED. IF ERROR HALTS ARE DISABLED, THE 
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FOLLOWING THE TYPEOUT. 


3.2 ERROR HALTS 


THERE ARE 4 ERRORS IN THIS PROGRAM THAT CAUSE A HALT. THESE ERRORS 
ARE IN TESTS 1, 2, AND 3. 


TEST 1 ERROR - ACCESS TO SLU1 TRANSMITTER CSR CAUSE TIME-OUT TRAP. 
THIS PROBLEM WILL PROBABLY CAUSE AN INABILITY OF THE 
MICRO-ODT TO RUN. 


TEST 2 ERROR - ACCESS TO SLU1 TRANSMITTER DATA BUFFER CAUSED TIME-OUT 
TRAP. THIS PROBLEM WILL PROBABLY CAUSE AN INABILITY OF 
THE MICRO-ODT TO RUN. 


TEST 3 ERROR - THE FIRST ERROR IS THAT DONE DID NOT CLEAR WHEN THE 
TRANSMITTER BUFFER WAS FILLED AS IT SHOULD. 


Seale beedenterteted est estes 
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ID NOT 
REASONABLE TIME AFTER THE DATA BUFFER WAS Fl 
CATING THAT THE CHARACTER WAS NEVER TRANSMIT 
COULD CAUSE MICRO-ODT TO NOT RUN OR GARBLED 
THE MICRO-ODT. 
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4.0 PERFORMANCE AND PROGRESS REPORTS 


SOLS 


THE ONLY REPORT FROM THIS PROGRAM OTHER THAN ERROR REPORTS IS THE END 
PASS MESSAGE. IT IS IN THE FORM: 


END PASS #XXXXX 
WHERE XXXXX IS THE DECIMAL NUMBER OF END OF PASSES COMPLETED. 


MeFwnNO 


BEEEEREL EEE 


8 5.0 DEVICE INFORMATION TABLES 
30 SLU1 RCSR 
35¢ eee a ok oe Se Fk Se Se T 
54 I a I 
EL ERE LEE LLL ELL LA 
3$ = 
7 ee 
58 RECEIVER DONE ------------------------ I 
359 RECEIVER INTERRUPT ENABLE ---------------~ 
361 
362 
363 SLU1 RBUF 
365 SS ok ee a oe oe oe a ce oe a ee 
se Sey Gan LS eae “Se a as aes RE 
9 Tie Ber I 
370 ee Re Be I 
71 ERROR- I I I I 
ke OVERRUN --- I I I 
? FRAME ERROR --- I I 
74 RECEIVE PARITY ---- I 
75 ERROR I 
376 RECEIVED DATA BITS (8) -oe-----n9-n9- anne nnn n nanan 
378 
79 
380 SLU1 XCSR 
3B. "2. Go a ae ae tae ae Oe ee oe oe 2 ee 
38 I pee ie I 
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TRANSMITTER READY ---<9-e"e-------- 
TRANSMITTER INTERRUPT ENABLE ----~--~-~--~ 


SLU1 XBUF 
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SLU2 RCSR 
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RECEIVER DONE <-~~-<<<<necwsewnnee 
INTERRUPT ENABLE ---------------------- 


SLU2 RBUF 
ae a TS 8 9 ee PK. Fe ee tO 


RAME ERROR --~ 
a PARITY --- 

RECEIVER DATA BITS (8) qeeenenm nnn tnt ttt tt ttt rrr nn 
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6.0 PROGRAM DESCRIPTION 


6.1 PROGRAM EXECUTION CHARACTERISTICS 


THIS PROGRAM TESTS ALL THE SELECTED DEVICES AS A SINGLE UNIT. IT 
FIRST VERIFIES THAT ALL REGISTERS CAN BE ACCESSED, THE WRITEABLE BITS 
ARE ABLE TO BE WRITTEN TO AND ARE * UNIQUE ON ALL THREE DEVICES. IT 
THEN CHECKS EACH DEVICE FOR INTERRUPTS AND FOR DATA RELIABILITY. 
FINALLY IT SETS ALL SELECTED DEVICES UP TO GO AT THE SAME TIME ENABLES 
INTERRUPTS AND STARTS THEM OFF. THIS TEST CHECKS SYSTEM INTERACTION. 
WHEN ALL TESTS HAVE BEEN COMPLETED THE END OF PASS MESSAGE IS TYPED. 


6.2 SUBTEST SUMMARIES 


TEST1 TEST ABILITY TC ACCESS SLU1 TRANSMITTER CONTROL AND STATUS 
REGISTER. HALTS IF ACCESS CAUSES TIMEOUT TRAP. 


TEST2 TEST ABILITY TO ACCESS SLU1 TRANSMITTER BUFFER. HALTS IF 
ACCESS CAUSES TIMEOUT TRAP. 


TESTS TEST SLU1 TRANSMITTER BIT7 (DONE) CLEARS WHEN TRANSMITTER 
BUFFER IS LOADED. THE BUFFER IS LOADED WHICH SHOULD CLEAR 


SEQ 0012 
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97 

498 THE DONE BIT. AFTER IT IS VERIFIED THAT ‘DONE’’ CLEARS THE 

499 PROGRAM WAITS TO RECEIVE DONE BACK AFTER THE DATA IS TRANS~ 

500 FERRED OUT OF THE BUFFER. IF DONE DOES NOT INITIALLY CLEAR 

253 OR FAILS TO RESET THE PROGRAM HALTS. 

207 TEST4 TEST THAT SLU1 TRANSMITTER BIT7 (DONE) SETS WITH RESET. THE 
TRANSMITTER BUFFER IS LOADED WITH A CHARACTER, AS SOON AS 

505 “DONE’' SETS A SECOND CHARACTER IS LOADED INTO THE BUFFER. 
BECAUSE THE FIRST CHARACTER IS a win SHIFTED OUT OF 

50 THE UART ‘‘DONE’’ WILL NOT ae SET FOR A wey T 1 MS (DE- 


PENDING ON BAUD RAT THE P caine € ISSUES A RESET BEFORE 
THE TIME IS UP AND IMMEDIATELY CHECKS It IS 
SET THE PROGRAM ASSUMES IT WAS SET BY THE RESET INSTRUCTION. 
THIS ERROR DOES NOT CAUSE A HALT. 


TESTS TEST “rae TO ACCESS SLU RECEIVER CONTROL AND STATUS RE- 
GISTER. ERROR IS REPORTED IF ACCESS CAUSES A TIMEOUT 


SRE 


“ TEST6 TEST ABILITY TO ACCESS SLU1 RECEIVER BUFFER. AN ERROR IS 
REPORTED IF ACCESS CAUSES A TIMEOUT TRAP. 


DAA AMAA 
— wa PF HM rir OH a 
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TEST10 TEST THAT SLU1 TRANSMITTER INTERRUPT ENABLE (BIT6) CAN BE 
SET AND RESET. THIS TEST CHECKS THAT THE BIT CAN BE WRITTEN 
ab AND READ. CLEARED BY WRITING A ZERO TO IT AND CLEARED 


TEST11 py THAT SLU1 RECEIVER INTERRUPT ENABLE (BIT6) CAN BE_ SET 
D RESET. SAME TEST AS FOR TRANSMITTER INTERRUPT ENABLE. 


TEST14 SAME AS TEST1 BUT DONE ONSLU2 AND ERROR DOES NOT CAUSE HALT. 
# TEST15 SAME AS TEST2 BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 
7 TEST16 SAME AS TEST3 BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 
TEST17=-21 SAME AS TEST4~6 BUT FOR SLU2. 
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339 
340 TEST22 TEST SLU2 BREAK BIT (BITO) CAN BE SET, CLEARED, AND RESET. 
34 TEST23-26 SAME AS TEST 10-13 BUT FOR SLU2. 
544 TEST27 TEST ABILITY TO ACCESS LINE CLOCK STATUS REGISTER. ERROR 
269 REPORTED IF ACCESS CAUSES TIMEOUT TRAP. 
547 TEST30 TEST THAT LINE CLOCK INTERRUPT ENABLE (BIT6) C‘N BE SET, 
548 CLEARED, AND ‘'RESET'’. 
326 
551 TES732 UNIQUE INTERNAL ADDRESS TEST. THIS TEST WRITES A_ BIT _ INTO 
55 ONE OF THE DEVICE REGISTERS AND THEN VERIFIES THAT BIT IS 
55 NOT SET IN OTHER REGISTERS. THE TEST IS REPEATED FOR OTHER 
394 REGISTERS. 
556 TEST33 TEST THAT SLU1 TRANSMITTER INTERRUPTS ONLY WHEN ENABLED. 
557 THIS TEST CHECKS THAT THE TRANSMITTER ONLY INTERRUPTS WHEN 
226 ITS INTERRUPT ENABLE BIT IS SET. 
560 TEST34 TEST SLU1 TRANSMITTER INTERRUPTS DO NOT OCCUR WHEN DISABLED. 
561 THIS TEST CHECKS THAT THE TRANSMITTER DOES NOT INTERRUPT 
562 WHEN THE PROCESSOR PRIORITY IS 7 OR THE INTERRUPT ENABLE BIT 
265 IS CLEARED. 
565 TEST35 TEST SLU1 TRANSMITTER FOR DOUBLE INTERRUPTS. THIS TEST 
566 FIRST CHECKS THAT THE TRANSMITTER CAN INTERRUPT THEN MAKES 
567 SURE THAT ONLY ONE INTERRUPT IS REQUESTED FOR EACH SETTING 
268 OF ‘DONE’. 
570 TEST36 TEST THAT SLU1 TRANSMITTER INTERRUPT CLEARS WITH LOADING OF 
571 TRANSMITTER BUFFER. THIS TEST PUTS THE PROCESSOR AT 7, SETS 
572 TRANSMITTER INTERRUPT ENABLE AND FILLS THE TRANSMITTER 
573 BUFFER. WHEN ‘‘DONE'’ SETS THE SLU SHOULD HAVE AN INTERRUPT 
574 PENDING. THE PROGRAM THEN FILLS THE BUFFER AGAIN WHICH 
20? SHOULD CLEAR THE INTERRUPT. 
sr 
203 TEST46-57 SAME AS TESTS 33-44 EXCEPT FOR SLU2 INSTEAD OF SLU1 
581 TEST60 TEST THAT BREAK TRANSMITS ALL ZEROES. PUT ALL ONES INTO RE- 
582 CEIVER BUFFER THEN ISSUE A BREAK THE RECEIVER BUFFER SHOULD 
a7 CONTAIN ZEROES. 
585 TEST61 TEST THAT FRAMING ERROR (BIT13) CAN BE SET DURING BREAK. 
586 TRANSMIT A BREAK AND A CHARACTER JUST TO LET US KNOW WHEN iy 
587 LOOK FOR THE ERROR BIT. WHEN RECEIVER ‘DONE’ S BOTH 
588 BREAK AND CHARACTER SHOULD BE THERE, CHECK FOR BIT 13 IN RE- 
28° CEIVER STATUS REGISTER. 
591 TEST62 TEST SLU2 DATA PATH USING WRAP CABLE CONNECTOR. SAME AS 
592 TEST 45 ON SLU1. 
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594 TEST63 TEST LINE TIME CLOCK INTERRUPTS PROPERLY. 


595 
TEST64 TEST LINE TIME CLOCK FOR DOUBLE INTERRUPTS. 


597 3 
598 TEST65 TEST THAT LINE TIME CLOCK INTERRUPT CLEARS WITH RESET. 


599 
600 


z 


TEST70 BLAST TEST. THIS TEST RUNS ALL eh gh DEVICES SIMULTANE- 


601 

602 OUSLY IN INTERRUPT MODE. AFTER 60 INTERRUPTS FROM THE LINE 
603 CLOCK OR 256 yo BYTES HAVE BEEN TRANSFERRED BY THE SLU'S 
604 EVERYTHING IS E PROG THEN VERIFIES THAT NO 
605 INTERRUPTS WERE he ‘ST ON EITHER SLU AND THAT THE DATA TRANS~ 
oe FERRED WAS CORRECT. 

608 NOTE: IF RUNNING UNDER THE APT ENVIRNOMENT MANY OF THE ABOVE TESTS ARE 
oR ONLY EXECUTED DURING FIRST PASS. 

611 

if 

ray 6.3 SPECIAL SUBROUTINE DESCRIPTIONS 

616 

ott 6.3.1 ECHO TEST - 

619 THIS ROUTINE WILL ECHO ANY CHARACTER TYPED ON EITHER SLU1_ OR_ SLUe. 


620 
62 


DEFAULT IS TO THE CONSOLE DEVICE SLU1. THE TEST IS HALTED BY TYPING A 
CONTROL-C. TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING. 


6.3.2 TERMINAL OUTPUT TEST - 


THIS ROUTINE WILL OUTPUT ALL WRITEABLE CHARACTERS FOR THE OCTAL CODE 
==> 377. 32 CHARACTERS ARE PRINTED ON EACH LINE. THE PATTERN IS 


04 
REPEATED EVERY THREE LINES. 


7.0 LISTING 
% 


TITLE CJKDIAO 11/238 SLU LTC REPR DIAG 
:*COPYRIGHT (C) SEPT-81 

:*DIGITAL EQUIPMENT CORP. 

> *MAYNARD, MASS. 01754 


** 
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11 
P11 20-OCT-81 16:08 SEQ 0016 
:*THIS PROGRAM WAS ASSEMBLED USING T THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC-11-DZQAC-C5), , 1981. 
000001 $TN=1 
160000 $SWR=160000 -:HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
“SBTTL BASIC DEFINITIONS 
;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *#s 
001100 STACK= 1100 
"EQUIV EMT,ERROR ;:BASIC DEFINITION OF ERROR CALL 
"EQUIV IOT,SCOPE : “BASIC DEFINITION OF SCOPE CALL 
; *MISCELLANEOUS DEFINITIONS 
000011 11 >:CODE FOR HORIZONTAL TAB 
000012 LF= 12 >: CODE FOR LIN 
CR= 15 °:CODE FOR CARRIAGE R 
000200 CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= 177776 PROCESSOR STATUS WORD 
-EQUIV PS,PSW 
177774 STKLMT= 177774 ;:STACK LIMIT REGISTER 
177772 PIRQ= 177772 “PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 «HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 = :HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= 40 :GENERAL REGISTER 
000001 R1= 41 + GE REGISTER 
000002 R2= %2 > *GENERAL REGISTER 
000003 R3= 43 >: GENERAL REGISTER 
000004 R4= 14, >: GENERAL REGISTER 
00000 R5= 45 > :GENERAL REGISTER 
000006 R6= %6 > :GENERAL REGISTER 
000007 R7= 47 > :GENERAL REGISTER 
000006 SP= 16 >= STACK POINTER 
000007 PC= 47 : = PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 
000000 PRO= OO : PRIORITY LEVEL 0 
000040 PRI= 40 >:PRIORITY LEVEL 1 
000100 PR2= 100 = =PRIORITY LEVEL 2 
000140 PR3= 140 ::PRIORITY LEVEL 3 
000200 PR4= 200 =PRIORITY LEVEL 4 
000240 PR5= 240 = =PRIORITY LEVEL 5 
000300 PR6= 300 > :PRIORITY LEVEL 6 
000340 PR7= 340 = =PRIORITY LEVEL 7 
:*'"SWITCH REGISTER'’ SWITCH DEFINITIONS 
100000 $w15= 100000 
040000 Sw14= 400 
020000 SW13= 20000 
0 SWi2= 10000 
Swii= 400 
002000 Sw10= 2000 


mee - ee = + - 
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1) 000100 sw06= 100 
a) $0030 oe lm 
(1) 000010 Sw03= 10 
(1) 00004 SWwO2= 4 
(1) 000002 SwOl= 2 
(1) 000001 SWOO= 1 
(1) EQUIV SwWO9,SW9 
(1) “EQUIV SWO8,SWS 
(1) “EQUIV SWO7.SW7 
(1) “EQUIV SW06.SW6 
(1) UIV $wOS,SW5 
(1) “EQUIV SWO4. 
(1) .EQUIV SWO3,SW3 
(1) “EQUIV SWO2,SW2 
(1) EQUIV SWO1,SW1 
eas -EQUIV SW00,SWO 
(1) -eDATA BIT DEFINITIONS (BITOO TO BIT15) 
1) 00000 BIT15= 100000 
(1) 040000 BIT14= 40000 
(1) 0000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) 004000 BITI1= 4000 
(1) 002000 BIT10= 2000 
(1) 001000 BITO9= 1000 
(1) 000400 BITO8= 400 
(1) 00200 BITO7= 200 
(1) 00100 BITO6= 100 
(1) 000040 BITOS= 40 
(1) 000020 BITO4= 20 
(1) 0010 BITO3= 10 
(1) 000004 BITO2= 4 
(1) 000002 BITOl= 2 
(1) 000001 BITOO= 1 
(1) "EQUIV BITO9.BIT9 
(1) EQUIV BITO8,BIT8 
(7) EQUIV BIT07.BIT7 
(1) FQUIV BITO06,BIT6 
(1) FQUIV BITOS.BITS 
(1) "EQUIV BIT04.BITé 
(1) UIV BITO3.BIT3 
(1) “EQUIV BITO2-BIT2 
(1) “EQUIV BITO1.BITI 
a) “EQUIV BITOO.BITO 
(1) -*BASIC "CPU" TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 "TIME OUT AND OTHER ERRORS 
(1) 000010 RESVEC= 10 SERESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 LUT BIT 
(1) 000014 TRIVEC= 14 >: TRACE TRAP 
(1) 14 BPTVEC= 14 {BREAKPOINT TRAP (BPT) 
(1) 000020 IOTVEC= 20 ‘TNPUT/OUTPUT TRAP (IOT) **SCOPE*s 
(1) 000024 PWRVEC= 24 BOWER FAIL 
(1) 000030 EMTVEC= 30 STEMULATOR TRAP (EMT) **ERROR** 
(1) 000034 TRAPVEC=34 ::'"TRAP’’ TRAP 
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(1) 000060 TKVEC= 60 ::TTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 ;;TTY PRINTER VECTOR 
(1) 000240 PIRQVEC=240 cesieeneacnaes INTERRUPT REQUEST VECTOR 
671 176500 ABASE= 176500 
72 000300 AVECT1= 300 
673 000400 AUSWR= 0 
674 000001 TN= 
675 161000 $SWR= 161000 
676 000003 BPT= 000003 ;THIS IS THE COMMAND FOR A TRAP 
of? : THROUGH 14 (BPT TRAP) 
679 000000 .=0 
680 SAR RAI I ICIS TTT TTT TTT IEA TIT 
681 :*ALI UNUSED LOCATIONS FROM 4-776 CONTAIN A '*.+2,BPT" 
682 > *SEQUENCE TO CATCH ILLEGAL TRAPS & INTER RUPPTS 
rer **LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
692 
693 000014 -=14 ;THE BPT TRAP VECTOR POINTS TO THE 
694 000014 012370 -WORD CATCH > ILLEGAL TRAP HANDLER ‘‘CATCH’’ 
oo? 000016 000340 -WORD 340 
697 000042 -= 42 
698 000042 000000 -WORD 0 
699 
700 
702 
703 5 
704 000174 .= 174 
705 000174 000000 DISPREG:.WORD 0 
ne 000176 000000 SWREG: .WORD 0 
708 000200 .=200 
709 000200 000137 003016 JMP START :DO INTERFACE TEST 
710 000204 000137 015406 JMP ECHO :DO ECHO TEST 


711 000210 000137 015664 JMP OUTTST [DO OUTPUT TEST TO TERMINAL 


‘peer a 
TK LL 
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713 
714 000500 = 500 
715 _SBTTL ACT11 HOOKS 
(3) . SAE IOI SISIAIAISICIIOIIISISIIIOIOISIDIOIUIIOIOIIOIOIOI IOI TT TO TE EE ee 
1) “HOOKS REQUIRED BY ACT11 
(1) 000500 $SVPC=. »SAVE PC 
(1) 000046 = 
(1) 000046 01232 $ENDAD +:1)°FT LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) 000052 000000 “WORD 0 i2)SET LOC. 532 TO ZERO 
(1) 000500 " =$SVPC =: RESTORE P 
716 _SBITL APT PARAMETER BLOCK 
(2) AAI CII IIIA III III IOI ITT ITI TTI II IIR 
(1) :Se7 LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) 5 RR A ROTI ITT RTT TRE RIE ERE REE EE REE EERE ERS 
(1) 000500 .$X=.  ;;SAVE CURRENT LOCATION 
(1) 000024 "=24  ::SET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 200 -:FOR APT START UP 
(1) 000044 “=44 = :POINT TO APT INDIRECT ADDRESS PNTR. 
(1) 000044 000500 SAPTHDR :“POINT TO APT HEADER BLOCK 
(1) 000500 _$X = :RESET LOCATION COUNTE 
(2) 22 acncedsenrskeensabasetads ceneneanaaeaeereeseaaceserecenceqsenes 
(1) “SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
(1) “INTERFACE SPEC. 
(1) 000500 SAPTHD: 
(1) 000500 000000 $HIBTS: .WORD 0 :TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 000502 001100 SMBADR: .WORD  $MAIL :ZADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 000504 000050 $TSTM: .WORD 50 RUN TIM OF LONGEST TEST 
(1) 000506 000060 SPASTM: .WORD 60 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 000055 SUNITM: .WORD 55 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 000512 000030 “WORD $ETEND-$MAIL/2 ::LENGTH MAILBOX~E TABLE (WORDS) 
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.* © 
and and 


P SEQ 0020 


.SBTTL COMMON TAGS 


EEE ERE EEE EEE EEE ERE KEE 


“&THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
“#USED IN THE PROGRAM. 


001000 .=1000 
001000 SCMTAG: :;START OF COMMON TAGS 
001000 000000 .WORD 0 
Oot ONe 000 STSTNM: .BYTE 0 :: CONTAINS THE TEST NUMBER 
00100 000 SERFLG: . E 0 >: CONTAINS ERROR FLAG 
001004 000000 SICN D 6«¢O :: CONTAINS SUBTEST ITERATION COUNT 
001006 000000 $LPADR: .WORD 0 :: CONTAINS SCOPE LOOP ADDRESS 
pay 000000 SLPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
00101 000000 SERTTL 0 :: CONTAINS TOTAL ERRORS DETECTED 
001014 000 SITEMB: .BYTE 0 :: CONTAINS ITEM CON Y 
001015 001 SERMAX: .BYTE 1 se TAINS MAX. ERRORS PER TEST 
001016 000000 SERRPC: .WORD 0 >: CONTAINS PC OF LAST ERROR INSTRUCTION 
001020 0 GDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘GOOD’ DATA 
001022 0 DADR: .WORD 0 ::CONTAINS ADDRESS OF ‘BAD’ DATA 
Oot RSe 000000 SGDDAT: .WORD 0 :: CONTAINS ‘GOOD’ DATA 
001026 000000 SBDDAT: .WORD 0 33 TAINS ° * DATA 
001030 000 -WORD 0 : sRESERVED--NOT TO BE USED 
001032 000000 -WORD 0 
001034 000 SAUTOB: .BYTE 0 : ;AUTOMATIC MODE INDICATOR 
001035 000 SINTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 
001036 000000 -WORD 0 
001040 177570 SWR: . WORD DSWR : :ADDRESS OF SWITCH REGISTER 
001042 177570 DISPLAY: .WORD DDISP : sADDRESS OF DISPLAY REGISTER 
001044 177560 $TKS: 177560 :: TTY KBD STATUS 
001046 177562 TKB: 177562 33 KBD BUFF 
001050 177564 S$TPS: 177564 ::TTY PRINTER STATUS REG. ADDRESS 
001052 177566 $TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
001054 000 ULL: .BYT 0 :: CONTAINS NULL CHARACTER FOR S 
001055 002 $FILLS: .BYTE 2 ::CONTAINS # OF FILLER CHARACTERS REQUIRED 
001056 012 SFILLC: .BYTE 12 ;s INSERT FILL CHARS. AFTER A ‘ F 
001057 000 STPFLG: . E 0 ::""TERMINAL AVAILABLE’’ FLAG (B1T<07>=0=YES) 
001060 000000 STMPO ‘ 0 : :USER DEFINED 
001062 000000 $TMP1 -WORD 0 : ;USER DEFINED 
001064 000000 $TMP2: . 0 ::USER DEFINED 
001066 000000 $TMP5: .WORD 0 : ;USER DEFINED 
001070 000000 -WORD 0 ::USER DEFINE 
001072 000000 SESCAPE : :ESCAPE ON ERROR ADDRESS 
001074 07 UES: ASCII /?/ : :QUESTION MARK 
001075 015 S$CRLF: .ASCII <15> :: CARRIAGE RETURN 
001076 000012 S$LF: eASCIZ <12> ::LINE FEED 
SOIR TIC TRIO I RTT RR ERIE IRE IRR EER ERE RRR ERE 
.SBTTL APT MAILBOX-ETABLE 
SI RIT ERI RR IIR RR EER RE EERE EERE EES 
~EVEN 
001100 $MAIL: ::APT MAILBOX 
001100 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
001102 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001104 000000 STESTN: .WORD ATESTN” ;;TEST 
001106 000000 $S$PASS: .WORD APASS : PASS COUNT 
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20-0CT- APT MAILBOX-ETABL SEQ 0021 
001110 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001112 000000 SUNIT: .WORD AUNIT ::1/0 UNIT NUMBER 
001114 000000 SMSGAD: .WORD AMSGAD ; ;MESSAGE ADDRESS 
001116 000000 SMSGLG: .WORD AMSGLG :;:MESSAGE LENGTH 
001120 SETABLE: >: APT ENVIRONMENT TABLE 
001120 000 SENV:  .BYTE AENV ; ;ENVIRONMENT 
001121 000 SENVM: BYTE AENVM  ;;: ENVIRONMENT BODE BITS 
001122 000000 SSWREG: .WORD ASWREG ;:APT SWITCH REGISTER 
001124 000400 SUSWR: .WORD AUSWR ::USER SWITCHES 
001126 000000 S$CPUOP: .WORD ACPUOP ;;CPU TYPE .OPTIONS 
:* BITS IS-112CPU T YPE 
i* 1/04=01, 11/05 02.11/20=03, 11/40=04, 11/45=05 
:* 11770 06.P 0-07, Q=10 
:* BIT 10=REAL TIME CLO 
3* BIT 9=FLOATING POINT. PROCESSOR 
3% BIT 8=MEMORY MANAGEMENT 
1130 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
1131 000 $MTYP1: .BYTE  AMTYP1 5 2MEM. TYPE ,BLKA1 
3* MEM.TYPE BYTE <-- (HIGH BYTE) 
it 900 NSEC CORE=001 
3* 300 NSEC BIPOLAR=002 
= ie 500 NSEC MOS=00 
001132 000000 $MADR1: .WORD AMADR1 ;:HIGH ADDRESS,BLK#1 
. i MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
001134 000 $MAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
001135 000 $MTYP2: .BYTE AMTYP2 ::MEM.TYPE,BLKA2 
001136 9000000 $MADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS,BLKA&2 
001140 000 SMAMS3: .BYTE AMAMSS ; ;HIGH ADDRESS .M.S.BYTE 
001141 000 $MTYP3: BYTE AMTYP3 ::MEM.TYPE,BLKA3 
001142 000000 SMADR3: .WORD AMADR3 ::MEM.LAST ADDRESS, BLKA#3 
001144 000 $MAMS4: .BYTE AMAMS4 «HIGH ADDRESS,.M.S.BYTE 
001145 000 $MTYP4: |BYTE AMTYP4 ::MEM.TYPE,BLK&4 
001146 000000 SMADR4: .WORD AMADR4 : MER. LAST ADDRESS, BLK&4 
001150 000300 SVECT1: _WORD AVECT1 :: INTERRUPT VECTOR#1,BUS PRIORITYA1 
001152 000000 SVECT2: WORD AVECT2 ::INTERRUPT VECTOR#2BUS PRIORITY#2 
001154 176500 $BASE: .WORD  ABASE : CBASE ADDRESS OF EQUIPMENT UNDER TEST 
001156 000000 SDEVM: .WORD ADEVM ;;DEVICE MAP 
001160 SETEND: 
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ERROR POINTER TABLE 
.SBTTL ERROR POINTER TABLE 


ey TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
THE INFORMATION I INDEX NUMBER 


: *NOTE1: 


a 2 2 8 


; *NOTE2: 


SERRTB: 


. SERRTB: 


S OBTAINED BY USING THE INDE 
: SLOCATION ales ae NUMBER INDICATES WHICH ITEM IN 
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SEQ 0022 


FOUND IN 
N THE TABLE IS PERTINENT. 


TEMB IS 0 THE ONLY PERTINENT DATA_IS (SER 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;:POINTS TO THE ERROR MESSAGE 
;z;POINTS TO THE DATA HEADER 
:;POINTS TO THE DATA 

>;POINTS TO THE DATA FORMAT 


:THIS BLOCK OF 16 LOCATIONS IS HERE TO PACIFY SYSMAC 


;SLU1_TCSR DONE NOT SET WITH RESET 
TESTA ERR PC TCSR’ 
SSTESTN, SERRPC,CTCSR 


:SLUI RCSR DID NOT RETURN SSYNC 
:"'TEST# ERR PC RCSR’ 
;STESTN, SERRPC,CRCSR 


‘SLUT RBUF DID NOT RETURN SSYNC 
:‘TEST# ERR PC RBUF’ 

7 STESTN, SERRPC , CRBUF 

sMORE PACIFICATION 


;‘'CAN ry rs Bite OF SLU1 TCSR"’ 
:TESTH ERR PC TCSR’ 
:STESTN, SERRPC, CTESR 


STILL MORE PACIFICATION 

;, RESET ote NOT CLEAR BIT2 OF SLU1 TCSR"’ 
:"TEST# ERR PC TCSR" 

*$TESTN, SERRPC,CTCSR 


;, BITS OF SLU1 TCSR NOT CLEAR AFTER RESET2 
7"‘TEST# ERR PC TCSR’ 
:STESTN, SERRPC,CTCSR 


ee 
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;|‘SLU1 XMIT pee WITH PRIORITY 7°’ 
:"TEST# ERR PC TCSR' 
-}STESTN, SERRPC, CTCSR 


3‘“CAN re i? al FS SLU1 TCSR*’ 


:TEST# ERR PC 
:STESTN, SERRPC ,CTCSR 


:, CAN NOT oo errs. OF SLU1 TCSR"’ 


EST# ERR P 
“ $TESIN, SERRPC,CTCSR 


BH DID NOT CLEAR BIT6 OF SLU1 TCSR"’ 
ERR PC TCSR"’ 


TESTA 
:STESTN,SERRPC ,CTCSR 


thE OF SLU1 RCSR NOT CLEAR AFTER RESET*’ 
PC RCSR"' 


:TESTA ERR 
:STESTN, SERRPC,CRCSR 


eet RCVR theres ts WITH PRIORITY 7°’ 


"TESTA ERR P 
7STESTN,SERRPC,CRCSR 


:‘"CAN NOT SET eit? sp’ SLU1 RCSR"’ 


"TESTA ERR PC 
:STESTN,SERRPC, CRESR 


+, CAN NOT CLEAR Bits. OF SLU1 RCSR"’ 


:‘'TEST# ERR P 
:STESTN, SERRPC.CRCSR 


+, CAN NOT CLEAR erie. OF SLU1 RCSR WITH RESET2 


:'TEST# ERR PC 
> $TESTN, SERRPC,CRCSR 


7, oLUI gS DONE NEVER SET"’ 
s RR PC RCSR’ 


ESTA E 
:STESTN, SERRPC,CRCSR 


;RESET DID NOT CLEAR SLU1 RCVR DONE”’ 
PC RCSR’ 


3 TESTA 
>STESTN, SERRPC ,CRCSR 


mn 
x 
xz 


rr ee re eee eee ee 


SEQ 0023 


a me es os ee 


CJKDIAO 11/238 SLU LTC REPR DIAG 
20-OCT-81 


CJKDIA.P11 
817 001450 
818 001452 
819 001454 
ase 001456 
| 001460 
001462 
4 001464 
5 001466 
us 
as 001470 
8 001472 
829 001474 
830 001476 
831 
eas 001500 
835 001502 
834 001504 
835 001506 
836 
837 001510 
838 001512 
839 001514 
840 001516 
841 
842 001520 
843 001522 
844 001524 
845 001526 
846 
847 001530 
848 001532 
849 001534 
850 001536 
851 
836 001540 
853 001542 
854 001544 
855 001546 
856 
857 001550 
858 001552 
859 001554 
860 001556 
861 
B66 001560 
863 001562 
864 001564 
865 001566 
866 
867 001220 
868 00157 
9 001574 
870 001576 
871 
872 001600 


000000 
017553 


000000 
017623 


017661 
024731 
025542 
000000 


017721 


16 


:08 


ee 


L 2 
DNMAC X24.07-563 O2-FEB-82 16: 
ERROR POINTER TABLE 


:‘'SLU2 TCSR DONE NO 
:‘‘TESTA ERR PC TCS 
:STESTN,SERRPC,TCSR 


42 PAGE 7-4 


: READING SLU1 RBUF DID NOT CLEAR RCVR DONE"’ 
:' TESTA ERR PC CSR’ 
;STESTN, SERRPC ,CRCSR 
:$LU2_TCSR DID NOT RETURN SSYNC 


: ‘TESTA ERR P 
STESTN,SERRPC,TCSR 


CSR 


7SLU2 TBUF DID NOT RETURN SSYNC 
:"TEST# ERR PC _TBUF'' 
;STESTN, SERRPC , TBUF 


:\'SLU2 TCSR DONE NOT, SET AFTER TRANSMIT" 


‘TESTA ERR PC 


me | 
:STESTN,SERRPC,TCSR 


:‘"SLU2 TCSR DONE NOT SET WITH RESET"’ 
TCSR"’ 


““TEST# ERR PC 


:STESTN,ERRPC,TCSR 

:""SLU2 RCSR DID NOT RETURN SSYNC"’ 
:"‘TEST# ERR PC_ RCSR’’ 
:STESTN,ERRPC,RCSR 


;SLU2 RBUF DID NOT RETURN SSYNC"’ 
:‘TESTA ERR PC_ RBUF"’ 
7 STESTN,ERRPC ,RBUF 


:"BITO OF SLU2 TCSR NOT CLEAR AFTER RESET"’ 
:‘‘TEST# ERR PC _TCSR 
7STESTN,SERRPC,TCSR 


:"'CAN NOT SET BITO OF SLU2 TCSR"’ 
:‘‘TEST# ERR PC _TCSR 
:STESTN,SERRPC,TCSR 


:"‘CAN NOT CLEAR BITO OF SLU2 TCSR’’ 
:‘TEST# ERR PC _TCSR 
:STESTN, SERRPC,TCSR 


:RESET DID NOT CLEAR BITO OF SLU2 TCSR"’ 


SSS ee . — 


T CLEARED WITH TBUF FULL" 


SEQ 0024 


——— ee ern 8 eee oe ee 





2 
CJKDIAO 11/238 SLU LTC_REPR DIAG DNMAC X24.07-5635 02-FEB-82" 16:42 PAGE 7-5 


CJKDIA.P11 20-OCT-81 16:08 ERROR POINTER TABLE SEQ 0025 
873 001602 024731 DHS :""TEST# ERR PC TCSR 
874 001604 025542 DT31 = STESTN, SERRPC, TCSR 
875 001606 000000 0 
877 001610 017767 EMG, ="BIT6 OF SLU2 TCSR NOT CLEAR AFTER RESET2 
878 001612 024731 DHS “TEST# ERR PC TCSR 
879 001614 025542 D131 :$TESTN, SERRPC,TCSR 
$80 001616 000000 0 
882 001620 020037 EM45 :"/SLU2 XMIT INTERRUPTED WITH PRIORITY 7” 
B83 001622 024 DHS :“TESTAH ERR PC TCSR 
884 001624 025542 DT31 : STESTN, SERRPC, TCSR 
885 001626 0 
887 001630 020105 EM46 :\ICAN NOT SET BIT6 OF SLU2 TCSR" 
888 001632 024731 DH5 “TESTA ERR PC 
889 001634 025542 DT31 “$TESTN, SERRPC, resR. 
890 001656 000000 0 
892 001640 020143 EM47 :\ICAN NOT CLEAR BITS OF SLUZ TCSR" 
893 001642 024731 DH5 “"TEST# ERR PC TCSR 
894 001644 025542 D731 : $TESTN, SERRPCTCSR 
895 001646 0 
897 001650 020203 EMSO RESET DID NOT CLEAR BIT6 OF SLUZ TCSR’’ 
898 001652 ‘024731 DHS “TESTA ERR PC TCSR 
899 001654 025542 DT31 “ STESTN, SERRPC,,TCSR 
900 001656. 000000 0 
902 001660 020251 EMS 1 :'BIT OF SLU2 RCSR NOT CLEAR AFTER RESET" 
903 001662 024756 DH6 “TESTA ERR PC RCSR’ 
904 001664 025562 DT36 ‘ STESTN.ERRPC RCSR 
905 001666 000000 0 
907 001670 020321 EM52 ;"'SLU2 RCVR INTERRUPT WITH PRIORITY 7°’ 
908 001672 024756 DH6 “TESTA ERR PC RCSR’ 
909 001674 025562 DT36 : STESTN,ERRPC ,RCSR 
910 001676 00000 0 
912 001700 020365 EM53 “CAN NOT SET BIT6 OF SLU2 RCSR"’ 
913 001702 024756 DH6 “"TEST# ERR PC RCSR" 
914 001704 025562 DT36 “ $TESTN.ERRPC ,RCSR 
915 001706 es 0 
917 001710 020423 EMS4 :"ICAN NOT CLEAR BITS OF SLU2 RCSR" 
918 001712 024756 DH6 :TESTA ERR PC RCSR’ 
919 001714 025562 DT 36 : STESTN.ERRPC .RCSR 
920 001716 000000 0 
922 001720 020463 EM55 :"CAN_NOT CLEAR BIT6 OF SLU2 RCSR WITH RESET2 
923 001722 024756 DH6 “TESTA ERR PC RCSR" 
92% 001724 025560 D136 = STESTN.ERRPC ,RCSR 
929 001726 000000 0 
927 001730 020536 EM56 ;“SLU2 RECEIVER DONE NEVER SET" 
928 001732 024756 DHS “TESTA ERR PC RCSR' 


CE 


me a eee 


CJKDIAO 1} /em8, LU LTC REPR DIAG 


CT-81 16:08 


CJKDIA.P11 

929 001734 025562 
one 001736 000000 
$30 001740 020573 
933 001742 024756 
934 001744 025562 
one 001746 

33 001750 020620 
938 001752 024756 
939 001754 Oe 2266 
ort 001756 

942 001760 020710 
943 001762 025055 
944 001764 025602 
oer 001766 000000 
947 001770 020741 
948 001772 025055 
949 001774 025602 
res 001776 

952 002000 021003 
953 002002 025055 
954 002004 025602 
eee 002006 000000 
957 002010 021041 
958 002012 025055 
959 stb 025602 
og 002016 000000 
962 002020 021071 
963 002022 025055 
964 Oe Se 025602 
aoe 002026 000000 
967 002030 021123 
968 002032 025055 
969 002034 025602 
ay 002036 000000 
972 002040 021163 
97 0 042 025055 
974 044 025602 
4 002046 000000 
977 002050 021223 
978 83 052 025055 
979 002054 025602 
oey 002956 000000 
$83 O°6 0 ae 
983 00 025055 
984 002064 025602 


DNMAC X24. or tie Q2-FeB-82" 
ERROR POINTER T 


D136 
0 


EE ee 


2 
16:42 PAGE 7-6 
:STESTN,ERRPC,RCSR 


:, RESET DID NOT aes SLU2 RCVR DONE"’ 
:"TEST# ERR PC_ RCSR" 
:STESTN,ERRPC,RCSR 


Bh 5 ae SLU2 —— DID NOT CLEAR RCVR DONE** 
"TESTA ERR PC_RCSR" 
> STESTN,ERRPC ,RCSR 


:LKS DID NOT RETURN SSYNC 
ty ERR PC_ LKS’"’ 
; N,ERRPC,LKS 


SD 
ESTA 
;$TEST 


S 
S 


;"BIT6 OF LKS NOT CLEAR AFTER RESET" 
TESTA ERR PC LKS'’ 
:STESTN, SERRPC ,LKS 


7, LKS gk ae WITH PRIORITY 7° 
EST# ERR PC LKS"' 
“STESIN, SERRPC,LKS 


;"'CAN ra! SET BIT6 OF LKS"’ 
""TEST# ERR PC LKS"' 
:STESTN,SERRPC,LKS 


3"'CAN ry! CLEAR Hy OF LKS"’ 
:"TEST# ERR PC LKS' 
:STESTN,SERRPC ,LKS 


cee DID NOT CLEAR BIT6 OF LKS" 
TESTA ERR PC LKS'' 
:STESTN, SERRPC, LKS 


:\BIT? OF LKS NOT SET AFTER RESET2 
ST# ERR PC LKS"’ 
“$TESTN, SERRPC,LKS 


;' "CAN vy CLEAR BIT? OF LKS” 
"TEST# ERR PC LKS"* 
> $TESTN, SERRPC ,LKS 


ee OF AS DOES NOT SET" 
;"TEST# ERR PC LKS" 
:STESTN, SERRPC, LKS 


SEQ 0026 






eee ee see 
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CJKDIA.P11 20-0CT-81 16:08 ERROR POINTER TABLE SEQ 0027 


985 002066 000000 0 

$87 002070 021306 EM72 {WRITING TO ONE INTERNAL ADDRESS MODIFIED ANOTHER 

988 002072 095101 DH72 S"TEST# ERR PC GOOD GDDATA BDDATA 

989 002074 029612 DT72 S STESTN, SERRPC , SGDADR,, SBDADR,, SGDDAT , SBDDAT | 
990 902076 000000 0 
992 002100 000004 .BLKW 4 ;THE LAST IN A LONG LINE OF PACIFICATION | 
994 | 
995 002110 021367 EM74 :"/SLUT MIT INTERRUPTS WHEN DISABLED" | 
996 002112 024731 DHS SUTEST# ERR PC _TCSR’ | 
997 002114 025512 DT5 : STESTN, SERRPC ,CTCSR | 
998 002116 0 | 

1000 902120 021432 EM75 :\'SLUT_XMIT DID NOT. INTERRUPT" 

1001 002122 024731 DHS SUTESTA ERR PC _TCSR’’ 

1902 902124 025512 DT5 ; STESTN, SERRPC ,CTCSR 

1 002126 000000 0 

1005 002130 021466 EM76 :\/SLU1_XMIT INTERRUPT, AT PRIORITY 7” 

1006 002132 024731 DHS :"TEST# ERR PC 

1007 002134 025512 DT5 : STESTN, SERRPC, CTCSR 

1008 002136 0 0 

1010 902140 021530 EM77 ;\'SLU1_XMIT INTERRUPTS WITH ENABLE CLEAR" 

1011 002142 024731 DHS : “TESTA ERR PC _TCSR’ 

1012 002144 025512 DT5 : STESTN, SERRPC ,CTCSR 

1015 002146 00000 0 

1015 002150 021577 EM100 ;'SLU1_XMIT DID NOT INTERRUPT" 

1016 002152 024731 DHS S“TEST# ERR PC TCSR™’ 

1017 002154 025512 DT5 : STESTN, SERRPC , CTCSR 

1018 002156 0 

1020 002160 021633 EM101 "'SLU1_XMIT RE~INTERRUPTED" 

1021 002162 024731 DHS : “TESTA ERR PC _TCSR' 

1022 902164 025512 DT5 : STESTN, SERRPC ,CTCSR 

1925 002166 000000 0 

1095 002170 021664 EM102 :LOADING SLU1 TUE DID NOT CLEAR INTERRUPT" 

1086 002172 024731 DHS S TESTA ERR PC TCSR"’ 

1027 002174 025512 DT5 : STESTN, SERRPC ,CTCSR 

1928 002176 000000 0 

1086 002200 021736 EM103 “'SLUT_RCVR INTERRUPTS WITH ENABLE CLEAR" 

1031 002202 024756 DH6 S “TESTA ERR PC _RCSR’ 

1032 002204 085508 DT6 ; STESTN, SERRPC ,CRCSR 

ez 002206 000 

1035 002210 02200 EM104 :"'SLU1_RCVR DID NOT INTERRUPT" 

1036 002212 024756 DH : “TESTA ERR PC _RCSR’’ 

1037 002214 025522 DT6 :STESTN, SERRPC ,CRCSR 

1038 002216 000000 0 

1040 002220 022041 EM105 :“'SLU1 RCVR INTERRUPTS AT PRIORITY 7" 
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LTC REPR DIAG DNMAC X24.07-563 O2-FEB-82 16:42 PAGE 7-8 

CT-81 16:08 ERROR POINTER TABLE SEQ 0028 
024756 DH6 :‘TEST# ERR PC RCSR"’ 
025522 DT6 ;STESTN,SERRPC,CRCSR 
900000 0 
022104 EM106 3"'SLU1 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR" 
034736 DH6 :‘TEST# ERR PC RCSR*’ 
025522 DT6 :STESTN,SERRPC,CRCSR 
000000 0 
06030? EM107 7'SLU1 RCVR DID NOT INTERRUPT"’ 
024756 DH6 :"TEST# ERR PC RCSR"’ 
025522 DT6 ;STESTN, SERRPC,CRCSR 
000000 0 
022221 EM110 | :‘"SLU1 RECEIVER RE-INTERRUPTED'’ 
024756 DH6 :‘TESTA ERR PC RCSR"’ 
025522 - :STESTN,SERRPC,CRCSR 
022256 EM111 :"SLU1 READING RBUF DID NOT CLEAR INTERRUPT"’ 
024756 DH6 :‘TESTA ERR PC RCSR" 
025522 ;** :STESTN, SERRPC ,CRCSR 
022330 EM112 "RESET DID NOT CLEAR SLU1 RCVR INTERRUPT"’ 
024756 DH6 :""TESTA ERR PC RCSR" 
025522 DT6 ;STESTN, SERRPC,CRCSR 
000000 0 
022400 EM113 :""SLU1 ‘OR’ FLAG DID NOT SET"’ 
024756 DH6 :‘TESTA# ERR PC RCSR" 
025522 DT6 ;STESTN,SERRPC,CRCSR 
000000 0 
022433 EM114 :"SLU1 ‘ERROR’ NOT SET WITH ‘OR* FLAG” 
024756 DH6 :“TEST# ERR PC RCSR"’ 
025522 DT6 :STESTN, SERRPC,CRCSR 
000000 0 
022477 EM115 :'‘DATA COMPARE ERROR’ 
025157 DH115 :"TESTA ERR PC CRCSR_ GOOD BAD"’ 
025630 DT115 7 STESTN,SERRPC,CRCSR,GD.BD 

000 0 
022522 EM116 :'"SLU2 XMIT INTERRUPTS WHEN DISABLED"’ 
024731 DH5 :"TEST# ERR PC _TCSR"’ 
025542 DT31 :STESTN,SERRPC,TCSR 
000000 0 
022565 EM117 :""SLU2 XMIT DID NOT INTERRUPT"’ 
024731 DH5 :"TEST# ERR PC _TCSR’’ 
025542 D131 :STESTN,SERRPC,TCSR 
000000 0 
022621 EM120 :""SLU2 XMIT INTERRUPT A’ PRIORITY 7°° 
024731 DH5 :“TEST# ERR PC TCSR"’ 


_ —— ee ee ee er ee — 
= = = . 
: = 


dD 3 
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CJKDIA.P11 20-OCT-81 16:08 ERRO' POINTER T SEQ 0029 
1097 002354 025542 D131 :STESTN,SERRPC,TCSR 
ae 002356 000000 0 
1100 00 368 Og¢ 3 EM121 3""SLU2 XMIT INTERRUPTS WITH ENABLE CLFAR"’ 
1101 002362 024731 DH5 :‘TEST# ERR PC _TCSR"’ 
1106 002364 025542 DT3i :STESTN,SERRPC,TCS 
Bd 002366 000000 0 
1105 002370 022732 EM122 :""SLU2 XMIT DID NOT INTERRUPT’’ 
By 002372 024731 DH5 :‘TESTA# ERR PC _TCSR*’ 
1107 002374 025542 D131 :STESTN,SERRPC,TCSR 
1198 002376 000000 0 
1110 002400 022766 EM123 :""SLU2 XMIT RE-INTERRUPTED'’ 
1111 MS Ot 024731 DH5 ‘TESTA ERR PC _TCSR’’ 
ig 0024 025542 D731 :STESTN,SERRPC,TCSR 
1a4z 002406 000000 0 
1115 002410 023017 EM124 s'LOADING SLU2 TBUF DID NOT CLEAR INTERRUPT"’ 
1116 002412 024731 DH5 :‘TESTA ERR PC _TCSR"’ 
1117 002414 025542 DT31 :STESTN,SERRPC,TCSR 
FY 002416 0 
1120 002420 023071 EM125 :""SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR"’ 
I$) 002422 024756 DH6 "TESTA ERR PC RCSR"’ 
11 ¢ 002424 025562 DT36 :STESTN,SERRPC,RCSR 
MNS 002426 000000 0 
1125 002430 023140 EM126 :""SLU2 RCVR DID NOT INTERRUPT"’ 
1126 002432 024756 DH6 :‘‘TESTA ERR PC RCSR" 
1127 002434 025562 DT36 7; STESTN, SERRPC ,RCSR 
1188 002436 000000 0 
1130 002440 023174 EM127 :""SLU2 RCVR INTERRUPTS AT PRIORITY 7°" 
1131 002442 024756 DH6 :‘TEST# ERR PC RCSR" 
1136 002444 025562 D136 7 STESTN,SERRPC,RCSR 
a 002446 000000 
1135 002450 023237 EM130 :""SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR"’ 
1136 002452 024756 DH6 ;"TESTA# ERR PC RCSR"’ 
1137 002454 025562 D136 :STESTN,SERRPC.RCSR 
BE 002456 
1140 002460 0233520 EM131 :""SLU2 RCVR DID NOT INTERRUPT’’ 
1141 002462 024756 DH6 :‘TEST# ERR PC RCSR"’ 
1142 002464 025562 DT 36 :STESTN, SERRPC,.RCSR 
13er 002466 0 0 
1145 002470 023354 EM132 :"SLU2 RECEIVER RE-INTERRUPTED”’ 
Bb 002472 024756 DH6 :"TEST# ERR PC RCSR"’ 
1147 002474 025562 D136 :STESTN, SERRPC,RCSR 
By 002476 000000 0 
1150 002500 023411 EM133 :"'SLU2 READING RBUF DID NOT CLEAR INTERRUPT"’ 
1151 002502 024756 DH6 :"TEST# ERR PC RCSR’’ 
1152 25 025562 D136 :STESTN, SERRPC .RCSR 


anneal 
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KCIA 

KDIA.P11 20-OCT-81 16:08 ERROR POINTER T SEQ 0030 
We7 002506 000000 0 

1155 002510 023463 EM134 : RESET DID NOT CLEAR SLU2 RCVR INTERRUPT’ 
1156 BaSeie 024756 DH6 i"'TESTA ERR PC _RCSR"’ 

1157 002514 025562 DT36 :STESTN,SERRPC,RCSR 

1133 002516 000000 0 

1160 006368 023533 EM135 :“‘SLU2 "OR' FLAG DID NOT SET"’ 

1161 002522 024756 DH6 TESTA ERR PC RCSR" 

1106 002524 025562 D136 :STESTN, SERRPC ,RCSR 

1387 002526 000000 0 

1165 002530 023566 EM136 5 okUe ‘ERROR’ NOT SET WITH OR’ FLAG” 
1166 002532 024756 DH6 "TESTA ERR PC _RCSR' 

1167 002534 025562 DT36 :STESTN,SERRPC ,RCSR 

1B 002536 0 0 

1170 002540 023632 EM137 * SLs my DID NOT noe’ ALL ZEROES*’ 
1171 002542 025223 DH137 TESTA ERR PC RCSR_ DATA 

1126 002544 025644 DT137 7 STESTN, SERRPC ,RCSR,$BDDAT 

BE, 002546 0 0 0 

1175 002550 023701 EM140 "BREAK DID NOT SET FRAMING ERROR’’ 
1176 002552 024756 DH6 sTEST# ERR PC _RCSR'' 

1177 002554 025522 DT6 SSTESTN,SERRPC,RCSR 

1s 002556 000000 0 

1180 002560 023741 EM141 :‘"SLU2 ‘ERROR' NOT SET WITH ‘FR’ FLAG” 
1181 002562 024756 DH6 TEST# ERR PC _RCSR’ 

1182 025562 DT36 :STESTN, SERRPC ,RCSR 

ie 002566 000000 0 

1185 002570 024005 EM142 ;"‘DATA COMPARE ERROR WITH CABLE’* 

1186 002572 025260 DH142 :“TEST# ERR PC RCSR GOOD BAD*" 
1187 002574 025656 DT142 :STESTN, SERRPC .RCSR,GD.BD 

By + 002576 000000 0 

1190 002600 024043 EM143 2" RIC a hc AT PRIORITY 7° 

1191 002602 025055 DH61 :"TEST# ERR PC LKS"’ 

1192 002604 025602 DT61 > STESTN, SERRPC .LKS 

ier 002606 000000 

1195 002610 024077 EM144 “RTC alge Al WHEN DISABLED" 

1196 002612 025055 DH61 "TESTA ERR PC LKS" 

1197 002614 025602 DT61 :STESTN,SERRPC, LKS 

1 002616 000 

1200 002620 024134 EM145 :'RTC ek i ol DID NOT OCCUR’ 

1201 002622 025055 DH61 :TEST# ERR PC LKS" 

1508 002624 025602 DT61 : STESTN, SERRPC ,LKS 

1 002626 0 

1508 002630 024170 EM146 7‘ RTC Hyg DID NOT OCCUR" 

1206 002632 025055 DH61 :"TEST# ERR PC LKS"* 

1207 002634 025602 DT61 :STESTN, SERRPC,LKS 

1208 002636 
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11/238 SLU LTC REPR DIAG DNMAC X24.07-563 O2-FEB-82 16:42 PAGE 7-11 
11 20-OCT-81 16:08 ERROR POINTER TABLE SEQ 0031 
002640 024224 EM147 :'RTC DOUBLE INTERRUPT"' 
002642 025055 DH61 :"TEST# ERR PC LKS"' 
002644 025602 DT61 TSTESTN, SERRPC ,LKS 
002646 000000 0 
002650 024251 EM150 :"'RESET DID NOT CLEAR RTC INTERRUPT" 
002652 025055 DH61 “TEST# ERR PC LKS'’ 
002654 025602 DT61 :STESTN, SERRPC ,LKS 
002656 000000 
002660 024313 EM151 :"'RTC INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS'’ 
002662 025055 DH61 :"TEST# ERR PC LKS"’ 
002664 025602 DT61 :STESTN, SERRPC ,LKS 
002666 000000 0 
002670 024422 EM153 :'SLU1 RECEIVER STATUS ERROR’ 
002672 025157 DH115 “TESTA ERR PC CRCSR GOOD i 
002674 025630 DT115 " $TESTN, SERRPC, CRCSR, $GDDTA, SBDDAT 
002676 0 
002700 024455 EM154 :SLU2 RECEIVER STATUS ERROR 
002702 025260 DH142 :"TESTN ERR PC RCSR GOOD a 
002704 025656 DT142 “ $TESTN, SERRPC ,RCSR,S$GDDAT , SBDDAT 
002706 000000 0 
002710 024545 EM156 :"'SLU1 DATA COMPARE ERROR IN EXERCISER"’ 

712 025157 DH115 ““TEST# ERR PC CRCSR GOOD BAD" 
002714 025630 DT115 = $TESTN, SERRPC,CRCSR, GD .BD 
002716 000000 0 
002720 024612 EM157 :"INCORRECT RECEIVE COUNT SLU2 
002722 025361 DH155 “TESTA ERR PC RCSR TRANS RCV" 
002724 025670 DT157 = $TESTN, SERRPC RCSR,XMTCT2,RCVCT2 
002726 000 0 
002730 024647 EM160 :'"SLU2 DATA COMPARE ERROR IN EXERCISER’ 
002732 025260 DH142 ““TEST# ERR PC RCSR GOOD BAD" 

2734 025656 DT142 “$TESTN, SERRPC,RCSR,GD.BD 
002736 000000 0 
002740 024714 EM161 :"'TRAP CATCHER" 
002742 025425 DH161 “TESTA ERR PC OLDPC TRAP ADR"’ 
002744 025704 DT161 :$TESTN, SERRPC ,OLDPC ,BDVECT 
002746 000000 
:REGISTER ADDRESSES OF INTERNAL ON BOARD OPTIONS 

002750 176500 RCSR: .WORD 176500 :SLU2 COMMAND/STATUS REGISTER 
002752 176502 RBUF: .WORD 176502 :SLU2 RECEIVER BUFFER 
002754 176504 TCSR: .WORD 176504 SLU2 TRANSMITTER COMMAND/STATUS REGISTER 
002756 176506 TBUF: .WORD 176506 “SLU2 TRANSMITTER BUFFER 
002760 177560 CRCSR: 177560 “SLU RECEIVER COMMAND/STATUS REGISTER 
002762 177562 CRBUF: 177562 “SLU1 RECEIVER BUFFER 
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ERROR POINTER TABLE 


CTCSR: 
C TBUF : 
LKS: 


177564 ;SLU1 TRANSMITTER a REGISTER 
177566 :SLU1 TRANSMITTER BUFFER 
WORD 177546 :LTC COMMAND/STATUS REGISTER 


:VECTOR ADDRESSES FOR ON BOARD OPTIONS 


RVECT: .WORD 300 
RPSW: -WORD 302 
TVECT WORD 304 
PSW: . WORD 306 
oe re: sRECEIVER INTERRUPT VECTOR 
CTVECT: 64 : TRANSMITTER INTERRUPT VECTOR 
TPSW 66 
RTCVT: .WORD 100 
RTCPSW: .WORD 102 
START: CLR SFATAL ;CLEAR ERROR NO. 
CLR SMSGTYP * CLEAR MESSAGE TYPE 
CLR STESTN = CLEAR TEST NO. 
1s CLR SDEVM = CLEAR FLAGS INDICATING DEVICES UNDER TEST 
.- SBTTL 


;:CLEAR THE C 


MOV #1000,SP 
s: INITIALIZE A FEW VECTORS 
MOV A$ 


MOV __#. ,SLPERR SETUP 
;;SIZE FOR A HARDWARE SWITCH REGISTER. 
:;EQUAL TO A "=1", 

MOV = @WERR 


64$: 


INITIALIZE THE COMMON TAGS 
OMMON TAGS ($CMTAG) AREA 


MOV #SCMTAG ,R6 3zFIRST LOCATION TO BE CLEARED 


CLR (R6) + ;;CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;;DONE? — 
BNE 6 ;;LOOP BACK IF 


NO 
7;SETUP THE STACK POINTER 
#$SCOPE ,@#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 


MOV #340 QhIOTVEC#2 “LEVEL 7 

MOV #SERROR ,@MEMTVEC ;3EMT VECTOR FOR ERROR ROUTINE 
MOV #340 -QMEMTVEC+2 | 33 

MOV #STRAP ,@#TRAPVEC ::; RAP VECTOR FOR TRAP CALLS 
MOV #340 aitaapvecs2:i LEVE 


PWRVEC POWER FAILURE VECTOR 

MOV 9340, DOPURVEC?D ;;LEVEL 7 

MOV SENDCT.$EOPCT | :: SETUP END-OF-PROGRAM COUNTER 

CLR $ESCAPE : CLEAR THE ESCAPE ON ERROR ADDRESS 


ALLOW ONE ERROR PER T 
:FINITIALIZE THE LOOP ADDRESS FOR SCOPE 
THE ERROR LOOP ADDRESS 


F NOT FOUND 
SETUP FOR A SOFTWARE TewiTCch REGISTER. 

RVEC.-(SP) ::SAVE ERROR VECTOR 
MOV #64$,aMERRVEC ::SET UP ERROR VECT 
MOV #OSWR, SWR S:SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP.DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
CMP #-1,aSWR :* TRY TO REFERENCE HARDWARE SwR 
BNE 66$ : “BRANCH IF NO TIMEOUT TRAP OCCURRED 

2 THE HARDWARE SWR IS NOT = -1 

BR 65$ ;:BRANCH IF NO TIMEQUT 


MOV #65$, (SP) 


SEQ 0032 


I - 


: 
} 
! 
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CJKDIA.P11 20-0CT-81 16:08 INITIALIZE THE COMMON TAGS SEQ 0033 
2) sey 012737 000176 001040 65$: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 
2) 46 012737 000174 001042 MOV #DISPREG, DISPLAY 
¢} 254 012637 000004 66$: MOV (SP) +, a#ERRVEC : :RESTORE ERROR VECTOR 
3} 60 0930 7 001106 CLR S$PASS ::CLEAR PASS COUNT 
) ss 132737 000200 001121 BITB MAPTSIZE.SENVM ;;TEST USER SIZE UNDER APT 
) 2 Peat BEQ 7$ r¥ ,USE NON-APT SWITCH 
3 0127 001122 001040 678 MOV #SSWREG, SWR ::NO,USE APT SWITCH REGISTER 


.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST a442 


3302 005737 000042 ::ARE WE RUNNING UNDER XXDP/ACT? 
; 00101 3NE 68$ ::BRANCH IF YES 
1 heals 001120 000001 CMPB SENV,41 : :ARE WE RUNNING UNDER APT? 
16 1388 BEQ 6 2s CH IF YES 
0 023727 001040 000176 CMP SWR,ASWREG :: SOFTWARE SWITCH REG SELECTED? 
001005 BNE 69$ $3 
104406 GTSWR ::GET SOFT-SWR SETTINGS 
2 00049 BR 69$ 
112737 000001 001034 oe: MOVB #1,$AUTOB ::SET AUTO-MODE INDICATOR 
1 3343 032777 000060 175470 BIT #BIT4'BITS,a@SWR ;IS SLU? TO BE TESTED 
ist $2 001003 BNE 2$ :IF EITHER BIT IS SET THEN DON'T TEST IT 
1291 Oe §2 052737 000001 001156 BIS #BITO,$DEVM :SET DEVICE FLAG TO TEST SLU1 
1536 003360 032777 000050 175452 2$: BIT #BIT3S'BITS,a@SWR ;IS SLU2 TO BE TESTED 
1 003 bo49 3 BNE 3$ :IF EITHER BIT IS SET THEN DON'T TEST IT 
1294 ie 0 355 7 000002 001156 BIS #B1IT1,$DEVM :SET DEVICE FLAG TO TEST SLU2 
1295 003376 032777 000100 175434 3$: BIT #B1T6,aSWR :1S LTC TO BE TES 
1296 003404 0010 BNE 4$ :IF BIT IS SET THEN DON'T TEST IT. 
1297 003406 052737 000004 001156 BIS #B1T2,$DEVM :SET DEVICE FLAG TO TEST LTC 
1298 003414 032737 000001 001156 4$: BIT #BITO,SDEVM :IS SLU1 UNDER TEST 
1299 003422 001002 BNE TST IF YES TEST XMIT REG. BEFORE TYPING TITLE 
1300 003424 000137 003660 JMP ID :IF NO SKIP TESTS AND TYPE IT NOW 
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CJKDIAO 11/238 SLU LTC 
CJKDIA.P11 20-OCT-81 16:0 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0034 
13 
1 RRA AREAR AREER EAA EERE EER AERA EAA AERA R AREA ARERR ERR R EE ES 
(3) “*TEST 1 TEST ABILITY TO ACCESS SLU1 TCSR 
( ) 2 EERE EEEEEA EEE EAAE EAE EAE A REAR RARE RAE RRE REA A RAE R REAR N ES 
(2) 003430 000004 $T1: SCOPE 
(2) 003432 012737 000001 001104 MOV #1, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
1305 003440 013703 000004 MOV a#4 ,R3 “SAVE TIMEOUT VECTOR 
1306 003444 012737 003460 000004 MOV #1$,an4 “SET UP TIMEOUT VECTOR 
1307 003452 005777 177306 TST acTCcsR “REFERENCE THE XMIT COMMAND/STATUS REG. 
1308 003456 000405 BR 2$ : GO TO END OF TEST 
1309 003460 022626 1$: CMP (SP)+, (SP)+ “RESTORE SP AFTER TIMEOUT 
1310 003462 737 013304 JSR PC, SATY4 ::ONLY REPORT A FATAL ERROR 
(1) 003466 1 ::THE ERROR NUMBER (FROM APT LIST) 
1311 003470 HALT 
1312 003472 010337 000004 2$: MOV R3,a44 sRESTORE TIMEOUT VECTOR 
1318 
1316 SAAC III ISIS IIIT III III IAI ISI I IAI IA 
(3) “*TEST 2 TEST ABILITY TO ACCESS SLU1 TBUF 
(3) TIBIAE AIO IIIS IIIT III TOTO ITI TIT TTI III 
(2) 003476 000004 TST2: SCOPE 
(2) 003500 012737 000002 001104 MOV #2. $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1317 003506 013703 000004 MOV ars .R3 :SAVE TIMEOUT VECTOR 
1318 003512 012737 003526 000004 MOV #1$,aa4 “SET UP TIMEOUT VECTOR 
1319 003520 005777 177242 TST ac TBUF “REFERENCE THE XMIT BUFFER 
1320 003524 000405 BR 2$ *GO TO END OF TEST 
1321 003526 022626 1$: CMP (SP)+, (SP)+ “RESTORE SP AFTER TIMEOUT 
1322 003530 004737 013304 JSR PC, SATY4 ::ONLY REPORT A FATAL ERROR 
(1) 0035 00002 2 ::THE ERROR NUMBER (FROM APT LIST) 
1323 003536 000000 HALT 
1324 003540 010337 000004 2$: MOV R3, an :RESTORE TIMEOUT VECTOR 
1 
1397 SL RRRRAE RRA ERE EERE REAR ERERRE RARER AREER ERR ARR AE EES 
(3) “*TEST 3 TEST SLU1 TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 
(3) SERRE ERE REE ERE ERE RE RAE ER ERR ERA ERE E REE ARERR ARREARS 
(2) 003544 000004 TST3: SCOPE 
(2) 003546 012737 000003 001104 MOV #3, $TESTN -:SET TEST NUMBER IN APT MAIL BOX 
1328 003554 032737 000001 001120 BIT #1 .aASENV “ARE WE RUNNING UNDER APT 
1329 003562 001405 BEQ 70$ -IF NO THEN DO TEST 
1330 003564 005737 001106 TST a4SPASS “1S THIS FIRST PASS 
1331 003570 001402 BEQ 70$ “IF YES THEN DO THIS SERIES OF TESTS 
1332 003572 000137 004402 JMP SLU2RT “IF NO THEN SKIP THIS SERIES OF TESTS 
1333 003576 005077 177164 70$: CLR aC TBUF ‘LOAD XBUF 
1334 003602 105777 177156 TSTB = @CTCSR : CHECK D 
1335 003606 100011 BPL 1$ “BR IF CLEAR 
1336 “FILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE 
1337 ; FIRST TEST TO FAIL 
1338 003610 005077 177152 CLR ac TBUF “FILL DOUBLE BUFFER 
1339 003614 105777 177144 TSTB = @CTCSR “CHECK DONE 
1340 003620 100004 BPI 1$ “BR IF CLEAR 
1341 003622 004737 013304 JSR PC, SATY4 = ONLY REPORT A FATAL ERROR 
(1) 003626 000003 3 i: THE ERROR NUMBER (FROM APT LIST) 
1342 003630 000000 HALT -TCSR ‘DONE’’ NOT CLEARED WITH TBUF FULL 
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T3 (D 


TEST SLU1 TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 


1$: CLR RO :CLEAR TIMER 
2$: TSTB = acTCSR “CHECK FOR XMIT DONE 
BM! 1D “IF DONE SETS, BR TO END OF TEST 
INC RO “INCREMENT TIMER 
BNE 2$ “BR IF TIMER NOT DONE 
JSR PC .SATY4 -: ONLY REPORT A FATAL ERROR 
ae :: THE ERROR NUMBER (FROM APT LIST) 
BR TST4 -BR TO NEXT TEST, AND SKIP THE TYPEOUT THAT FOLLOWS 
: BECAUSE OF THIS FAILURE 
ID: CMP ah42,a#46 :UNDER ACT11? 
BEQ 6$ “IF YES, SKIP IDENT. TYPEOUT 
TST $PASS “IS THIS THE FIRST PASS? 
BNE $ “IF NOT BR TO NEXT TEST & SKIP THE IDENTIFICATION TYPEOU 
TST $DEVCT “1S THIS THE FIRST SUBPASS? 
BNE 6$ “IF NOT, BRTO NEXT TEST 
TYPE “TYPE PROGRAM INDENTIFICATION 
TYPE :TYPE NUMBER OF DEVICES UNDER TEST 
6$: 
SSR I KK RRR EERIE RRR EERE ER EERE RARER EERE RES 
“*TEST 4 TEST THAT SLU1 TCSR ‘DONE’ SETS WITH RESET 
5 RR RRR EEE ERE REE ERE EERE REREREER EERE EERE EEE 
TST4: SCOPE 
MOV #4, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
BIT #BITO.a#SDEVM :DO THESE TESTS FOR THIS DEVICE? 
BNE 99$ “F YES CONTINUE WITH TESTS 
ini JMP SLU2RT “IF NO GO TO START OF NEXT SET OF TESTS. 
a: ac TBUF :LOAD TRANSMIT BUFFER 
1$ IsTB acTCSR “WAIT FOR DONE 
CLR aC TBUF :LOAD SECOND BUFFER 
RESET =CLEAR DONE WITH RESET 
TSTB  acICsR “CHECK FOR DONE SET 
BMI TST5 “BR TO NEXT TEST IF DONE SET 
ERROR 5 :TCSR ''DONE’’ DOES NOT SET WITH RESET 
FERRE RARER RARER ERE REE RE REREAR EER R AERA AREA ARERR ARR AEE 
“*TEST 5 TEST ABILITY TO ACCESS SLU1 RCSR 


FERRARA AREER ER EER ERE EERE RAE E EERE R AREA ARR A RRR E RES 


TST5: SCOPE 
MOV #5, $TESIN :;SET TEST cram APT MAIL BOX 


MOV a4 ,R5 SAVE TIMEOUT VEC 

MOV #1$,a84 :SET UP TIMEOUT VECTOR 
TST acRCSR sACCESS RCSR 

BR 2$ ;BR TO END OF TEST 


1$: CMP (SP)+, (SP)+ RESTORE SP AFTER TIMEOUT 
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T5 TEST ABILITY TO ACCESS SLU1 RCSR 


;CAN NOT ACCESS RCSR 


ERROR 6 : 
RESTORE TIMEOUT VECTOR 


2s: MOV R3,a%% 


5 RRR REEER REE EERE REAR REAR ARERR RRR E REE A ARERR ARERR ES 


:*TEST 6 TEST ABILITY TO ACCESS SLU1 RBUF 


ss RAKE R RAE ERAEA EERE REAR EER AREER EERE RRR E RRR R EER ES 


TST6: SCOPE 
MOV 


#6, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
MOV af .R3 “SAVE TIMEOUT VECTOR 
MOV #1$, a4 “SET UP TIMEOUT VECTOR 
TST aCRBUF “ACCESS RBUF 
BR “BR TO END OF TEST 
1$: CMP (SP) +, (SP) + :RESTORE SP AFTER TIMEOUT 
ERROR 7 “CAN NOT ACCESS RBUF 
2$: MOV R3,a44 “RESTORE TIMEOUT VECTOR 


SLI RRR REE EERE EEE EEE ERE EER EERE EER ER EERE EN 


:*TEST 7 TEST THAT SLU1 BIT6(XMIT INT EN) CAN BE SET & RESET 


Sf RRRERERERR EERE EERE EERE ERE EERE ERE EERE EEE REE RR ER EERE REE 


TST7: SCOPE 
MO 


V #7,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
BIC #WBIT6.aCTCSR | :MAKE SURE BIT UNDER TEST IS INITIALIZED 
MOV acTVECT,R3 “SAVE XMIT VECTOR 
MOV #1$,aCTVECT “SET UP INTERRUPT VECTOR FOR ERROR REPORT 
JSR PC-WRPSW, =SET PSW TO PRIORITY=7 
BIT WBRIT6,aCTCSR ;TEST BIT6 OF TCSR 
BEQ 2$ “BR IF ZERO 
ERROR 14 
-BIT6 IN TCSR NOT CLEAR AFTER RESET 
BR 2$ 
1$: CMP (SP) +, (SP)* :RESTORE SP AFTER INTERRUPT 
:XMIT INTERRUPT OCCURRED PRIO=7 
2$: BIS WBIT6,aCTCSR ;:SET BIT6 OF TCSR 
BIT WBIT6,aCTCSR ;TEST BIT6 OF TCSR 
BNE 3$ “BR, IF SET 
ERROR 16 
:CANNOT SET BIT6 OF TCSR 
3$: BIC WBI1T6,aCTCSR ;CLEAR BIT6 OF TCSR 
BIT WBIT6.aCTCSR ;TEST BIT6 OF TCSR 
BEQ 4$ “BR IF CLEAR 
ERROR 17 
:CANNOT CLEAR BIT6 OF TCSR 
4$: 
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20-0CT-81 16:08 TEST THAT SLU1 BIT6(XMIT INT EN) CAN BE SET & RESET SEQ 0037 
004210 052777 000100 176546 BIS #B1T6,aCTCSR ;SET BIT6 OF TCSR 
ing Bh 5 RESET :CLEAR BIT6 WITH RESET 
oe SS 032777 000100 176536 BIT #B1T6,aCTCSR :TEST BIT6 OF TCSR 
004226 001401 BEQ 5$ :BR IF CLEAR 
004230 104020 ERROR 20 
;CANNOT CLEAR B11iG OF TCSR WITH RESET 
004232 010377 176550 5$: MOV R3,aCTVECT sRESTORE XMIT VECTOR 
22 Se te te eH EERE EEE EEREEEEEEEEEEEEEEEEEEEEREEEEEREAEKEEE 
:*TEST 10 TEST THAT SLU1 BIT6 OF RCSR CAN BE SET & RESET 
22 See IEEE EEE EEE EEEREREEEEKEEERKEREEEEEEEEREKEEE 
004236 000004 TSTi0: SCOPE 
004240 012737 000010 001104 MOV #10,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
004246 042777 000100 176504 BIC #B1T6,aCRCSR sMAKE SURE BIT UNDER TEST IS INITIALIZED 
004254 017703 176522 MOV @CRVECT,R3 ;SAVE RECEIVE VECTOR 
004260 012777 10 176514 MOV #1$,acRVECT :SET UP INTERRUPT VECTOR FOR ERROR REPORT 
7595 004737 012356 JSR PC ,WRPSW :SET PSW TO PRIORITY=7 
004272 000340 P 340 
004274 032777 000100 176456 BIT #B1T6,aCRCSR :TEST BIT6 OF RCSR 
004502 001404 BEQ 2$ 
004304 104021 ERROR 21 
:BIT6 OF RCSR NOT CLEAR AFTER RESET 
004306 000402 BR 2$ 
004310 022626 1$: CMP (SP)+,(SP)+ :RESTORE SP AFTER INTERRUPT 
004312 104022 ERROR 22 
:RCVR INTERRUPT WITH PRIORITY=7 
004314 052777 000100 176436 2$: BIS #B1T6,aCRCSR ;SET BIT6 OF RCSR 
004322 032777 000100 176430 BIT 4#B1T6,aCRCSR :TEST BIT6 OF RCSR 
004330 001001 BNE 3$ :BR, IF SET 
004332 104023 ERROR 23 
: CANNOT SET BIT6 OF RCSR 
sob re: 042777 000100 176416 3$: BIC 4#B1T6,aCRCSR ;CLEAR BIT6 OF RCSR 
004342 032777 000100 176410 BIT #B1T6,aCRCSR : TEST BIT6 OF RCSR 
004350 001401 BEQ 4$ ;BR, IF CLEAR 
004352 104024 ERROR 24 
: CANNOT CLEAR BIT6 OF RCSR 
54 4$: 
004354 052777 000100 176376 BIS #B1T6,aCRCSR :SET BIT6 OF RCSR 
2 000005 RESET >CLEAR BIT60F RCSR WITH RESET 
+33 032777 000100 176366 BIT #B1T6,aCRCSR :TEST BIT6 OF RCSR 
004372 001401 BEQ 5$ :BR, IF CLEAR 
004374 104025 ERROR 25 
:CANNOT CLEAR BIT6 OF RCSR WITH RESET 
004376 010377 176400 5$: MOV R3,aCRVECT sRESTORE RECEIVE VECTOR 
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CJKDIA.P11 20-OCT-81 16:08 T10 TEST THAT SLU1 BIT6 OF RCSR CAN BE SET & RESET SEQ 0038 
Me 4 004402 SLU2RT: 
1489 Derrrreoo or noo por onli iit. tit iinttitts 
(3) :*TEST 11 TEST ABILITY TO ACCESS SLU2 TCSR 
(3) +s eeREEER ARERR AAA EET TEE eee 
(2) 004402 pte TST11: SCOPE 
(2) 004404 012737 000011 001104 MOV #11,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
1490 ARE 032737 000002 001156 BIT #BIT1.a#$DEVM ;DO THESE TESTS FOR THIS DEVICE? 
(1) 0044 bh ts BNE 99$ :F YES CONTINUE WITH TESTS 
ods Oe ¢ 000137 005626 998 JMP LTCRT :IF NO GO TO START OF NEXT SET OF TESTS. 
1491 0044 8 013703 000004 MOV a¥4 ,R3 :SAVE TIMEOUT VECTOR 
1036 0044 012737 004446 000004 MOV #1$,a84 :SET UP TIMEOUT VECTOR 
1493 004440 005777 176310 TST aTCSR :REFERENCE THE XMIT COMMAND/STATUS REG. 
149% 004444 000402 / 2$ - GO TO END OF TEST 
1495 004446 022626 1$: CMP (SP)+,(SP)+ :RESTORE SP AFTER TIMEOUT 
1496 004450 104031 : ERROR 31 >XMIT CSR ADDRESS DOES NOT RETURN SSYNC 
pe 004452 010337 000004 2$: MOV R3,a44 sRESTORE TIMEOUT VECTOR 
i 
1501 SRI II II IOI III ICICI III TITAS IAAI IIS ISIS SSSI SSIS 
(3) : «TEST 12 TEST ABILITY TO ACCESS SLU2 TBUF 
(3) TRI ICICIICICICICIICIICIOIOIEII II I I AIA IISA ASIII IAS IISISISS SSS ISSA IIE 
(2) 004456 000004 TST12: SCOPE 
(2) 004460 012737 000012 001104 MOV #12,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1502 004466 013703 000004 MOV af4 ,R3 :SAVE TIMEOUT VECTOR 
1503 004472 012737 004506 000004 MOV #1$,a84 :SET UP TIMEOUT VECTOR 
1504 004500 005777 176252 TST aTBUF sREFERENCE THE XMIT BUFFER 
1505 004504 000402 BR 2$ :GO TO END OF TEST 
1506 004506 022626 1$: CMP (SP)+,(SP)+ sRESTORE SP AFTER TIMEOUT 
1507 004510 104032 ERROR >XMIT BUFFER ADDRESS DOES NOT REUTRN SSYNC 
1388 004512 010337 000004 2$: MOV R3,a44 sRESTORE TIMEOUT VECTOR 
1510 
1511 SIAC ISIC TOT TT EE TE 
(3) s*TEST 13 TEST SLU2 TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 
(3) DIAC ONE IISIOIOSIOIT TITS SISIOI I IOISISIISISISIOIEITIIOIOITIITIOI III IOI I III III 
(2) 004516 000004 TST13: SCOPE 
(2) 004520 012737 000013 001104 MOV #13,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
1512 004526 032737 000001 001120 “ BT #1, @ASENV sARE WE RUNNING UNDER APT 
(1) 004534 001403 » 3EQ 70$ > IF NO THEN DO TEST 
(1) 004536 005737 001106 TST @A4SPASS sIS THIS FIRST PASS 
(2) 004542 001022 BNE TST14 :IF NO THEN SKIP TO NEXT TEST 
(1) 004544 70$: 
1513 004544 005077 176206 CLR aTBUF sLOAD XBUF 
1514 004550 105777 176200 TSTB aTCSR : CHECK DONE 
1515 004554 100006 BPL 1$ :BR IF CLEAR 
1516 sFILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE 
1517 ‘ . FIRST TEST TO FAIL 
1518 004556 005077 176174 CLR aTBUF :FILL DOUBLE BUFFE 
1519 004562 105777 176166 TSTB aTCSR > CHECK DONE 
1520 O0% 288 100001 BPL 1$ sBR_IF CLEAR 
1521 004570 104033 ERROR 33 :-TCSR '‘DONE'’ NOT CLEARED WITH TBUF FULL 
1356 004572 005000 1$: CLR RO :CLEAR TI 
1§23 004574 105777 176154 2$: TSTB aTCSR :CHECK FOR XMIT DONE 
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CJKDIAO 11/238 SLU LTC REPR DIAG DNMAC X24.07-563 02-FEB-82 16:42 PAGE 9-1 
CJKDIA.P11 20-OCT-81 16:08 13 TEST SLU2 TCSR BIT?(DONE) CLEARS WHEN XBUF IS LOADED SEQ 0039 
1524 904600 100473 BMI TST17 :1F DONE SETS, BR TO NEXT TEST 
1525 60 005200 INC RO ‘INCREMENT TIMER 
1386 604 001373 BNE “BR IF TIMER NOT DONE 
1387 004606 104034 ERROR 34 “XMIT DONE BIT DOES NOT RESET AFTER TRANSMIT 
1386 Sp RRR EERE EEE REAR REE REE ER EERE REAR EERE AREER 
(3) “*TEST 14 TEST THAT SLU2 TCSR 'DONE’’ SETS WITH RESET 
(3) ss Se He KEE ERE EERE RR EEEEEREEEREEEEEREEEEEEREEEEREEEEEE 
(2) 004610 1ST14: SCOPE 
(9) 004612 012737 000014 001104 MOV #14,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1531 004620 032737 000001 001120 BIT #1, ae#SENV “ARE WE RUNNING UNDER APT 
(1) 004626 001403 BEQ 70$ *IF NO THEN DO TEST 
(1) 004630 005737 001106 TST a#$PASS “1S THIS FIRST PASS 
(2) 004634 001015 BNE TST15 “IF NO THEN SKIP TO NEXT TEST 
(1) 0046 70$: 
1532 004636 005077 176114 CLR @TBUF :LOAD TRANSMIT BUFFER 
1533 004642 105777 176106 1$: STB  aTCSR “WAIT FOR DONE 
1534 004646 100375 BPL 1$ 
1535 004650 005077 176102 CLR aTBUF :LOAD SECOND BUFFER 
1536 004654 000240 NOP 
1537 004656 000005 RESET :CLEAR DONE WITH RESET 
1538 004660 105777 176070 TSTB = aTCSR “CHECK FOR DONE SET 
1339 004664 100520 BMI TST20 “BR TO NEXT TEST IF DONE SET 
1341 004666 104035 ERROR 35 :TCSR ‘DONE’' DOES NOT SET WITH RESET 
13h 
1545 SIA IAAI IIIT IOC ITO IO III IO TOR IIT AI ITI III AI ASAI AR 
(3) “*TEST 15 TEST ABILITY TO ACCESS SLU2 RCSR 
(3) SERRE EERE REE REE RE REE REE EERE EER EERE ERR RARER AREER ARES 
(2) 004670 000004 TST15: SCOPE 
(2) 004672 012737 000015 001104 MOV #15. $TESTN ::SET TEST NUMBER IN APT MAIL BOX | 
1546 004700 013703 000004 MOV ans. “SAVE TIMEOUT VECTOR | 
1547 004704 012737 004720 000004 MOV #1$, 084 “SET UP TIMEOUT VECTOR | 
1548 004712 005777 176032 TST ARCSR “ACCESS RCSR : 
1349 004716 000402 BR 2$ “BR TO END OF TEST | 
1551 004720 022626 1$: CMP (SP)+, (SP) + *RESTORE SP AFTER TIMEOUT | 
135¢ 004722 104036 ERROR 3 “CAN NOT ACCESS RCSR 
1353 004724 010337 000004 2$: MOV R3, a6 “RESTORE TIMEOUT VECTOR | 
1228 os HIRE EREE EEE EEEEEEEKEEEEEEEEE 
(3) “*TEST 16 TEST ABILITY TO ACCESS SLU2 RBUF 
(3) SRK RRERER EERE ERE EERERERERE AREER ARERR ARERR RRR RE RRA R RARE ES 
(2) 730 900004 TST16: SCOPE 
(2) 73 187 7 000016 001104 MOV #16, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1558 740 013703 00000 MOV a¥4 ,R3 :SAVE TIMEOUT VECTOR 
1559 004744 012737 004760 000004 MOV #1$,an4 “SET UP TIMEOUT VECTOR 
1560 004752 005777 175774 TST @RBUF “ACCESS RBUF 
1361 004756 000402 BR 2$ “BR TO END OF TEST 
1298 004760 022626 1$: CMP (SP)+, (SP)+ =RESTORE SP AFTER TIMEOUT 
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CJKDIAO 11/238 SLU LTC REPR DIAG DNMAC X24.07-563 O2-FEB-82 16:42 PAGE 9-2 
CJKDIA.P11 20-0CT-81 16:08 T16 TEST ABILITY TO ACCESS SLU2 RBUF SEQ 0040 
1564 004762 10403 ERROR 37 :CAN NOT ACCESS RBUF 
129? 004764 010337 000004 e$: MOV R3,a44 RESTORE TIMEOUT VECTOR 
1368 
15 9 FARRER EERE EERE EE EEA EAR AREER RARER ARR RE RRR RARER RASS 
3) :*TEST 17 TEST SLU2 BITO(BREAK BIT) CAN BE SET & CLEARED & RESET 
( ) 5 ERR EEA AREER REREA ARERR AAR R AERA E AERA ARERR RARE ES 
(2) 004770 000004 TST17: SCOPE 
i¢? 004772 015535 000017 001104 MOV #17, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
1570 005000 042777 000001 175746 BIC #B1T0,aTCSR s;MAKE SURE BIT UNDER TEST IS INITIALIZED 
1571 005006 032777 000001 175740 BIT #B1T0,aTCSR :CHECK BITO OF TCSR CLEAR 
1356 005014 001401 BEQ 1$ ;BR_ IF CLEAR 
157 sega 104040 ERROR 40 :;B1TO0 WAS NOT CLEAR AFTER RESET 
1574 0050 052777 000001 175726 1$ BIS #B81T0,aTCSR ;SET BITO IN TCSR 
1575 005026 032777 000001 175720 SIT #B1TO,aTCSR :TEST BITO OF TCSR 
1576 0050 001001 BNE 2$ ;BR_IF SET 
1577 sits 104041 ERROR 41 ;BITO OF TCSR WILL NOT SET 
1578 5040 042777 000001 175706 2$: BIC #B1T0,aTCSR ;CLEAR BITO OF TCSR 
1579 005046 032777 000001 175700 BIT #BITO,aTCSR ;TEST BITO OF TCSR 
1580 005054 001401 BEQ 3$ 
1581 005056 104042 ERROR 42 :BITO OF TCSR WILL NOT CLEAR 
1582 005060 3$: 
(1) 005060 032737 000001 001120 BIT #1, @#SENV ;ARE WE RUNNING UNDER APT 
(1) 005066 001403 BEQ 70$ :1F NO THEN DO TEST 
(1) 005070 005737 001106 TST @4SPASS 31S THIS FIRST PASS 
st p43 tl 001014 70$ BNE TST20 IF NO THEN SKIP TO NEXT TEST 
1583 005076 052777 000001 175650 IS #B1TO,aTCSR ;SET BITO_ IN TCSR 
1584 005104 000005 RESET :CLEAR BITO WITH RESET 
1585 005106 032777 000001 175640 BIT #B1TO,aTCSR : TEST BITO CLEAR 
1586 005114 001404 BEQ TST 3;BR IF CLEAR 
1587 005116 042777 000001 175630 BIC #BITO,aTCSR :CLEAR BITO, TO PRINT ERROR 
1 005124 104043 ERROR 43 RESET DID NOT CLEAR BITO OF TCSR 
1590 
1591 5 ERRRRRERERRERR EERE AREER ERA AAA AAA ARARERERARERA RARER AAR RS 
(3) :*TEST 20 TEST THAT SLU2 BIT6(XMIT INT EN) CAN BE SET & RESET 
(3) 5 RRR RRERREEEERRERE EER EEEEEERER EERE EERE EREERERE RARE REE RER ERA AES 
(2) 005126 000004 TST20: SCOPE 
(2) 005130 012737 000020 001104 MOV #20, $TESIN 7;SET TEST NUMBER IN APT MAIL BOX 
1338 005136 042777 000100 175610 BIC 1T6,aTCSR : SURE BIT UNDER TEST IS INITIALIZED 
1593 005144 017703 175626 MOV aTVECT.R3 SAVE XMIT VECTOR 
1594 005150 012777 005200 175620 MOV #1$ ,aTVECT :SET UP INTERRUPT VECTOR FOR ERROR REPORT 
1595 005156 004737 012356 JSR -WRPSW SET PSW TO PRIORITY=7 
1596 005162 000340 -WORD 340 
1597 ON 185 032777 000100 175562 BIT #B1T6,aTCSR ;TEST BIT6 OF TCSR 
1598 005172 001404 BEQ 2$ ;BR IF ZERO 
1599 005174 104044 ERROR 44 
1600 ;BIT6 IN TCSR NOT CLEAR AFTER RESET 
by eit 005176 000402 BR 2$ 
1803 005200 022626 1$: CMP (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 
1604 005202 104045 ERROR 45 
i :XMIT INTERRUPT OCCURRED PRIO=7 
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08 T20 TEST THAT SLU2 BIT6(XMIT INT EN) CAN BE SET & RESET 


DIAO 11/238 SLU LTC REP 
KDIA.P11 20-OCT-81 16: SEQ 0041 
1607 005204 052777 000100 175542 2%: BIS #B1T6,aTCSR :SET BIT6 OF TCSR 
1608 005212 032777 000100 175534 BIT #B1T6.aTCSR “TEST BIT6 OF TCSR 
1609 005220 001001 BNE 3$ “BR, IF SET 
1611 005222 104046 ERROR 46 : 
1612 :CANNOT SET BIT6 OF TCSR 
1614 005224 042777 000100 175522 38: BIC #B1T6,aTCSR =: CLEAR B16 OF TCSR 
1615 005232 032777 000100 175514 BIT #B1T6,aTCSR “TEST BIT6 OF TCSR 
1616 005240 001401 BEQ 4$ “BR IF CLEAR 
1617 005242 104047 ERROR 47 
1618 :CANNOT CLEAR BIT6 OF TCSR 
1620 005244 032737 000001 001120 4$: BIT #1, aASENV :ARE WE RUNNING UNDER APT 
1621 005252 00140 BEQ 70$ - IF NO THEN DO TEST 
1622 005254 005737 001106 TST a#$PASS “1S THIS FIRST PASS 
1623 005260 001011 BNE 5$ “IF NO THEN SKIP TO END OF TEST 
1624 005262 70$: 
1625 005262 052777 000100 175464 BIS #B1T6,aTCSR :SET BIT6 OF TCSR 
1626 005270 00000 RESET ; CLEAR BIT6 with RESET 
1627 005272 032777 000100 175454 BIT #BIT6,aTCSR TEST BIT6 OF TCSR 
1628 005300 001401 BEQ 5$ “BR IF CLEAR 
1630 005302 104050 ERROR 50 
1631 =CANNOT CLEAR BIT6 OF TCSR WITH RESET 
1632 005304 010377 175466 5$: MOV R3, aTVECT “RESTORE XMIT VECTOR 
ber: SRK RRR RE RR RE REEREEERER ERA RRA EEE ARERR ERE REE RER RRS 
(3) <STEST 21 TEST THAT SLU2 BIT6 OF RCSR CAN BE SET & RESET 
(3) ORE KEE EEE REE EEKEEEEEKEEEKEEAEEKEEKEEEEKEEKEEEKEEEEEAEE 
(2) 005310 000004 $121: SCOPE 
(2) 005312 012737 000021 001104 MOV #21,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1636 005320 042777 000100 175422 BIC #8176, aRCSR “MAKE SURE BIT UNDER TEST IS INITIALIZED 
1637 005326 017703 175440 MOV ARVECT.R3 “SAVE RECEIVE VECTOR 
1638 005332 012777 005362 175432 MOV #1$, aRVECT “SET UP INTERRUPT VECTOR FOR ERROR REPORT 
1639 005340 004737 012356 JSR PC,WRPSW “SET PSW TO PRIORITY=7 
1640 005344 000340 -WORD 340 
1641 005346 032777 000100 175374 BIT WBIT6,aRCSR : TEST BIT6 OF RCSR 
1642 005354 001404 BEQ 2$ 
1643 005356 104051 ERROR 51 
1644 :B1T6 OF RCSR NOT CLEAR AFTER RESET 
1645 005360 000402 BR 2$ 
1647 005362 022626 1$: CMP (SP) +, (SP)+ :RESTORE SP AFTER INTERRUPT 
1648 005364 104052 ERROR 52 
1649 :RCVR INTERRUPT WITH PRIORITY=7 
1651 005 052777 000100 175354 28: BIS #B1T6,aRCSR ;SET BIT6 OF RCSR 
1652 005374 032777 000100 175346 BIT #B1T6.aRCSR ‘TEST BIT6 OF RCSR 
1653 005402 001001 BNE 3$ “BR, IF SET 
1655 005404 104053 ERROR 53 
1656 :CANNOT SET BIT6 OF RCSR 
1658 005406 v42777 000100 175334 3$: BIC #B1T6,aRCSR -CLEAR BIT6 OF RCSR 
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000001 
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000100 
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175300 
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175174 


175166 


175326 


001120 


175276 
175266 


001104 
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4$: 


70$: 


5$: 


16: 42 PAGE 9-4 


TEST THAT SLU2 BIT6 OF RCSR CAN BE SET & RESET 


#B1T6,aRCSR :TEST BIT6 OF RCSR 
4$ ;BR, IF CLEAR 
54 : 
;CANNOT CLEAR BIT6 OF RCSR 
#1 ,@ASENV ARE WE RUNNING UNDER APT 
:1F NO THEN DO TEST 
@4SPASS :1S THIS FIRST PASS 
5$ :1F NO THEN SKIP TO END OF TEST 
#B1T6,aRCSR :SET BIT6 OF RCSR 
CLEAR te RCSR WITH RESET 
#B1T6,aRCSR :TEST BIT6 O 
5$ :BR, IF CLEAR 
55 
;CANNOT CLEAR BIT6 OF RCSR WITH RESET 
R3,@RVECT SRESTORE RECEIVE VECTOR 


SRR RRR REE EEE EERE REAR EERE EERE REAR ERE EERE ARERR ERS 


“RTEST 22 


© REE REE REE EEE EEEKEEAEEEEEEEKEEEEEEEREEEEEKEEKREKEREEEE 


1§122: 


WDONE : 


70$: 


2$: 


SCOPE 
MO 


BIT #1, a4SENV 
70$ 


TEST THAT SLU2 RCVR DONE (7) SET & CLEAR PROPERLY 


#22, $TESIN >;SET TEST NUMBER IN APT MAIL BOX 
@RBUF s INITIALIZE REGISTER BEFORE TESTING 
RO :CLEAR TIMER 

aTBUF ;LOAD TRANSMIT BUFFER 

@RCSR ;CHECK FOR RECEIVER DONE 

1$ :BR, IF DONE 

RO [INCREMENT TIMER, IF NOT DONE 

tg [CONTINUE WAIT IF TIME REMAINS 


RECEIVER DONE NEVER SET 


;ARE WE RUNNING UNDER APT 
:1F NO THEN DO ieee 


@4$PASS :1S THIS FIRST PASS 
2$ : IF NO THEN SKIP TO END OF TEST 
:CLEAR DONE WITH RESET 
rom :CHECK FOR DONE CLEAR 
57 
;RESET DID NOT ey RCVR DONE 
a@RBUF :CLEAR RECEIVER BUFFER 


SRR RARER ERE ERR ERE EER ARERR AREER RARE ARERR RRA RR EES 


“RTEST 23 


RRR EKER EERE EEERERREEEERE EAA AEEEAEAERAREAREAAEERERERE 


$123: 


SCOPE 


TEST SLU2 THAT READING RBUF CLEARS RECEIVER DONE 


SEQ 0042 


——— rs 


—_—_—_—_—_—_—_—_—X————— ee ee a 
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CJKDIAO 11/238 SLU LTC 
CJKDIA.P11 20-OCT-81 16:08 123 TEST SLU2 THAT READING RBUF CLEARS RECEIVER DONE SEQ 0043 
(2) 005566 012737 090023 001104 MOV #23, $TESTIN ->SET TEST NUMBER IN APT MAIL BOX 
1708 005574 005077 175152 CLR @RBUF : INITIALIZE REGISTER BEFORE TESTING 
1709 005600 005077 175152 CLR @TBUF “LOAD TRANSMITTER 
1710 005604 105777 175140 1$: STB  a@RCSR “WAIT FOR RECEIVER DONE 
1711 005610 100375 BPL 1$ 
1718 005612 017700 175134 MOV @RBUF RO :READ RECEIVE BUFFER 
1713 005616 105777 175126 TSTB a@RCSR “CHECK FOR RECEIVE DONE CLEAR 
1714 005622 001401 BEQ TST24 “BR, IF CLEAR TO NEXT TEST 
1715 005624 104060 ERROR 60 
1716 :READING RBUF DID NOT CLEAR RCVR DONE 
W217 005626 LTCRT: 
1719 © eK EEE EEE EEKEEEEEKEEEKEEE 
(3) SSTEST 26 TEST ABILITY TO ACCESS LKS 
(3) EKER EEE EEEEEKKEEKEEEEKEREREREREKEEEKEKEEEEKEKEEEE 
(2) 005626 000004 $124: SCOPE 
(2) 005630 012737 000024 001104 MOV #24, $TESTN ->SET TEST NUMBER IN APT MAIL BOX 
1720 005636 032737 000004 001156 BIT #BIT2, a#$DEVM :b0 THESE TESTS FOR THIS DEVICE? 
(1) 005644 001002 BNE 99$ YES CONTINUE WITH TESTS 
1) 005646 000137 006100 na JMP UNI QUE oF NO GO TO START OF NEXT SET OF TESTS. 
1721 005652 013703 000004 "MOV ars ,R3 : SAVE TIMEOUT VECTOR 
1720 005656 012737 005672 000004 MOV #1$,aK4 “SET UP TIMEOUT VECTOR 
1723 005664 005777 175100 TST aLKS “ACCESS LKS 
1726 005670 000402 BR 2$ “NO TIMEOUT - BR TO END OF TEST 
1726 005672 022626 1$: CMP (SP)+, (SP) + :RESTORE SP AFTER TIMEOUT 
1787 005674 104061 ERROR 61 “CAN NOT ACCESS LKS 
1729 005676 010337 000004 2$: MOV R3,a44 :RESTORE TIMEOUT VECTOR 
1731 fe He te fe Be te He REE EREREEERERR ERE ERE EER ERE RE EER ERE ERAS 
(3) “STEST 25 TEST THAT BIT6 OF LKS CAN BE SET & RESET 
(3) EERE EERE EEE EEE KEEEEREEEEEEKEEREREKEKEEEKREE 
(2) 005702 000004 $125: SCOPE 
(2) 005704 012737 000025 001104 MOV #25, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1732 005712 042777 000100 175050 BIC #B1T6,aLkS “MAKE SURE BIT UNDER TEST IS INITIALIZED BEFORE TESTING 
1733 005720 017703 175066 MOV ARTCVT,R3 “SAVE LINE CLOCK VECTOR 
1734 005724 012777 005754 175060 MOV #1$, aRTCVT “SET UP INTERRUPT VECTOR FOR ERROR REPORT 
1735 005732 004737 012356 JSR PC, WRPSW “SET PSW TO PRIORITY 7 
1736 005736 .WORD 340 
1737 005740 032777 000100 175022 BIT WBIT6,aLKS : TEST BIT6 OF LKS 
1738 005746 001404 BEQ $ 
1739 005750 104062 ERROR 62 
1740 -BIT6 OF LKS NOT CLEAR AFTER RESET 
1741 005752 000402 BR 2$ 
1743 005754 022626 1$: CMP (SP)+, (SP) + :RESTORE SP AFTER INTERRUPT 
1744 005756 104063 ERROR 63 
1745 <LKS INTERRUPT WITH PRIORITY=7 
1747 005760 052777 000100 175002 2$: BIS #B1T6,aLKS ;SET 8116 OF LKS 
1748 005766 032777 000100 174774 BIT #BIT6.aLKS TEST BIT6 OF LKS 
1749 005774 001001 BNE 3$ “BR IF SET 
1751 005776 104064 ERROR 64 
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174724 
174714 


177776 


000000 


oe X24.07-563 02-FEB-82. 


3$: 


4$: 


70$: 


5$: 


DADTBL: 


TBLEND: 


UNIQUE : 
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TEST THAT BIT6 OF LKS CAN BESET & RESET 


. WORD 
. WORD 
. WORD 


. WORD 
. WORD 


#1 ,QASENV 
@ASPASS 
5$ 


#61T6,aLKS 
#B1T6,aLKS 
5$ 


66 
R3,@RTCVT 
UNI QUE 


177560 


177564 


;CANNOT SET BIT6 OF LKS 


:CLEAR BIT6 OF LKS 
:TEST BIT6 OF LK 


s CANNOT CLEAR BIT6 OF LKS 
UNNING UNDER APT 


:SET BIT6 OF L 

> CLEAR le oF “ks WITH RESET 
:TEST BIT6 OF LKS 

:BR IF CLEAR 


;CANNOT CLEAR BIT6 OF LKS WITH RESET 
SRESTORE LINE CLOCK VECTOR 
:GO TO NEXT TEST 


SERRE ERE RRR EE REE E REAR ER ERE RE RARER RRR A AAA R AE 


UNIQUE INTERNAL ADDRESS TEST 


 STEST 26 


© EERE ERE EERE EE EERRAEEREREERERERAEKEEEEEREEEEEKEEEEEE 


18126: 


70$: 


1$: 


2$: 


3$: 
4$: 


SCOPE 
MO 


#26, $TESIN 
av SENV 


70 
@4SPASS 
TST27 


#340,PS 


#DADTBL ,RO 
#DADTBL ,R3 


#5,R 
Szaa)+ 


R1,2$ 
#B1T6,a(RO) 


rs TBL RI 


#aiT6,a(R1)+ 


R2,3$ 


77SET TEST NUMBER IN APT MAIL BOX 
— WE RUNNING UNDER APT 

:IF NO THEN DO ied 

31S THIS FIRST PASS 

:I1F NO THEN SKIP TO NEXT TEST 


WE WILL BE PLAYING WITH BIT6 
:SO LOCK OUT EXTRAINEOUS INTE 


“REGISTER ADDRESS 

:SET LOOP COUNTER TO CLEAR ALL REG. 
;CLEAR A A_REGISTER 

;LOOP UNTIL ALL REGISTERS CLEARED 

SET TEST BIT IN DEVICE REGISTERS 

:GET LOCATION OF FIRST REGISTER ADDRESS 
:SET UP TEST LOOP COUNTER 

:1S TEST BIT SET IN THIS REGISTER 

“IF YES GO SEE IF THERE IS AN ERROR 
:LOUP UNTIL ALL REGISTER CHECKED 


| 
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006076 


a 


UNIQUE INTERNAL ADDRESS TEST 


— X24.07-565 02-FEB-82° 16: 42 PAGE 9-7 


5$: 


6$: 


7$: 
8$: 


CLR 


a(RO)+ 
RO,ATBLEND 
7$ 


1$ 
(RO) ,~(R1) 


(RO), $GDADR 
(R1) . $BDADR 
a(RO),$GDDAT 
a(R), “$BDDAT 


#2,R1 
4$ 
RO 
RO 
8$ 


CLEAR REGISTER JUST TESTED AND POINT 
TO NEXT ONE 


NG 
THE REGISTER TO ITSELF? 
R ERR 

RROR INFORMATION 


;WRITE TO 1 INTERNAL ADDRESS MODIFIED 
ANOTHER SO ADDRESS NOT UNIQUE 

“RESTORE POINTER 

;GET BACK IN TEST LOOP 


SEQ 0045 


—- —--—_———- 


| P 
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CJKDIA.P11 20-OCT-81 16:08 726 UN] QUE INTERNAL ADDRESS TEST SEQ 0046 

1820 006262 SLUTIT: 

ees © EEE EEE REE EEE EERE REE ERERERE EEE 
(3) “TEST 27 TEST THAT SLU1 XMIT INTERRUPTS ONLY WHEN ENABLED 
(3) © RARER ERE EEEEEREREREKEREEREREREEREEEEKERERERAEEEE 
(2) 006262 000004 $127: SCOPE 
(2) 006264 012737 000027 001104 MOV #27, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 

1823 006272 032737 000001 001120 BIT #1, a#$SENV *1F NOT UNDER APT 

1824 006 001405 BEQ 7 ; THEN RUN THIS se OF TESTS 

1825 Opeane 005737 001106 TST a4$SPASS : ELSE IF FIRST PASS 

1826 006 001402 BEQ 70$ : THEN RUN THESE TESTS 

ese eee 00013 007016 708 JMP SLU2IT 5 ELSE DO NOT RUN THESE TESTS 
(1) 006314 032737 000001 001156 BIT #B1TO,a#$DEVM :DO THESE TESTS +5 THIS DEVICE? 
(1) 006322 001002 BNE SOS YES CONTINUE WITH TESTS 
43 ope 3¢ 3 000137 007016 998 JMP SLU2IT oF NO GO TO START OF NEXT SET OF TESTS. 

1829 006330 000005 RESET :CLEAR THE WORLD 

18 006 32 042777 000100 174424 BIC #B1T6.aCTCSR | :CLEAR TRANSMIT INTERRUPT ENABLE 

1831 0 017703 174442 MOV acTVECT.R3 “SAVE XMIT VECTOR 

1Ss6 006344 012777 006370 174434 MOV #25 aCTVECT =POINT XMIT VECTOR TO ERROR REPORT 

1833 006352 105777 174406 1$: TSTB  acTCSR “WAIT FOR DONE 

1834 006356 100375 BPL 1$ 

1835 006360 004737 012356 JSR PC, WRPSW :SET PSW TO PRIORITY 3 

1836 006364 000140 .WORD 140 

1837 006366 000402 BR 3$ 

1839 006370 022626 2$: CMP (SP)+, (SP)+ :RESTORE SP AFTER INTERRUPT 

1840 006372 104074 ERROR 74 

1841 sXMI1T INTERRUPTS WITH INTERRUPT ENABLE CLEAR 

1848 006374 012777 006414 174404 3S: MOV #4$, QCTVECT “SET XMIT VECTOR TO END OF TEST 

184 006402 052777 000100 174354 BIS #BIT6,aCTCSR * ENABLE INTERRUPTS 

1844 006410 000240 NOP 

1846 006412 104075 ERROR 75 :XMIT DID NOT INTERRUPT 

1848 006414 042777 000100 174342 4S: BIC #BIT6.aCTCSR ;DISABLE INTERRUPTS 

1849 006422 022626 CMP (SP)+, (SP) + “RESTORE SP AFTER INTERRUPT 

1850 006424 010377 174356 MOV R3,aCTVECT “RESTORE XMIT VECTOR 

185 

1826 SRR RRR EERE EERE EERE RERER ARERR ARERR RARER EERE ARERR RS 
(3) TEST 30 TEST SLU1 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 
(3) © REE KE RE REEREEERERERERERERRERREREEEEAEEEREAEEEKEEEEEEAEEEEE 
(2) 006430 000004 $730: SCOPE 
(2) 006432 012737 000030 001104 MOV #30, $TESTN SET TEST NUMBER IN APT MAIL BOX 

1854 006440 042777 000100 174316 BIC #B1T6,aCTCSR “DISABLE INTERRUPTS 

1855 006446 004737 012356 JSR Pe URE SW “SET PSW TO PRIORITY 7 

1856 006452 000340 .WORD 340 

1857 006454 017703 174326 MOV acTVECT,R3 :SAVE XMIT VECTOR 

1858 006460 012777 006506 174320 MOV #2$,aCTVECT ;POIN NT XMIT VECTOR TO ERROR REPORT 

1859 006466 105777 174272 1$: TSTB ~=—-_ ACTCSR “WAIT FOR DONE 

1860 006472 100375 BPL § 

1861 006474 052777 000100 174262 BIS WBIT6,aCTCSR § ; ENABLE INTERRUPT 

1862 006502 000240 NOP 

1863 006504 000402 BR 3$ =CONTINUE TEST 


ee 


ee - 


mn eee ae 
——— ee 


4 
CJKDIAO {}/es SLU LTC REPR DIAG DNMAC X24. ge ory 02-FEB- ~82 16:42 PAGE 10-1 


CJKDIA.P 20-OCT-81 16:08 T30 TEST SLU1 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED SEQ 0047 

1864 

1865 096208 022626 2s: MP (SP)+,(SP)+ sRESTORE SP AFTER INTERRUPT 

1866 00651 104076 ERROR 76 

1867 :XMIT INTERRUPTS AT PRIORITY=7 

1868 006512 042777 000100 174244 3$: BIC #B1T6,aCTCSR > CLEAR INTERRUPT ENABLE 

1869 006520 012777 006540 174260 MOV #4$,aCTVECT *POINT XMIT VECTOR TO ERROR REPORT 

1870 006526 004737 012356 JSR PC ,WRPSW “SET PSW TO PRIORITY 3 

1871 006532 000140 -WORD 140 

1 006534 000240 NOP 

yh 26 006536 000402 BR 5$ :BR TO END OF TEST=-NO INTERRUPT 

1875 006540 022626 4$: CMP (SP)+,(SP)+ sRESTORE SP AFTER INTERRUPT 

1876 006542 104077 ERROR 77 

1877 :XMIT INTERRUPT OCCURES WITH BIT6 CLEAR 

i fA 006544 010377 174236 S$: MOV R3,aCTVECT “RESTORE XMIT VECTOR 

1880 

a | ZAI IACI IISIOISIISISIOIIEISIIIIIIIIOIIOI ICT TTT IIASA TAS AS AINE 
(3) “TEST 31 TEST SLU1 TRANSMITTER FOR DOUBLE INTERRUPTS 
(3) © eR EEE ERE EEE REE EEE EEEEEEERERRERREEEEEERERKKEEE 
(2) 006550 004 18131: SCOPE 

(2) 006552 012737 000031 001104 MOV #31,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 

188 006560 042777 000100 174176 BIC #BIT6,aCTCSR “CLEAR ap baey oa ENABLE 

1883 006566 017703 174214 MOV acTVECT,R3 : SAVE XMIT VECTOR 

1884 006572 017704 174212 MOV PSW.R4 AVE XMIT PSW VECTOR 

1885 006576 012777 006640 174202 MOV #2$ ,acTVECT : A UP XMIT VECTOR 

1886 006604 012777 000340 174176 MOV #340, acTPSw “SET PIO 7 AFTER INTERRUPT 

1887 006612 004737 012356 JSR PC ,WRPSW :SET PSW TO PRIORITY 3 

1888 006616 000140 -WORD 140 

1889 006620 105777 174140 1$: TSTB acTCSR :WAIT FOR DONE 

1890 006624 100375 BPL 1$ 

1891 006626 052777 000100 174130 BIS #BIT6,aCTCSR sENABLE INTERRUPTS 

16 006634 000240 NOP 

1894 006636 104100 ERROR 100 

1895 :XMIT INTERRUPT DID NOT OCCUR 

1896 006640 022626 2$: CMP (SP)+,(SP)+ = RESTORE SP AFTER INTERRUPT 

1897 006642 012777 006670 174136 MOV #4$,aCTVECT =POIN NT XMIT VECTOR TO ERROR 

1898 006650 004737 012356 JSR -SET PSW TO PRIORITY 

1899 006654 000140 -WORD 140 

1900 006656 000240 NOP -GIVE TIME FOR ANY INTERRUPTS 

1901 006660 042777 000100 174076 BIC #BIT6,aCTCSR = DISABLE INTERRUPTS 

1308 006666 000402 BR 5$ “BR TO END OF TEST 

1904 006670 022626 4$: CMP (SP)+,(SP)+ :RESTORE SP AFTER INTERRUPT 

1905 006672 104101 ERROR 101 

1906 + XMIT ~ ye hs 

1907 006674 010377 174106 5$: MOV R3,acTVECT RESTORE XMIT VECTOR 

1s 0067 010477 174104 MOV R4,aCTPSW sRESTORE XMIT PSW VECTOR 

1910 SRI REE ER EER TERRE RRA E ARERR ERE EEE R EER ER EES 
(3) “STEST 32 TEST THAT SLU1 XMIT INTERRUPT CLEARS WITH LOADING TBUF 
(3) © REE REE REE EERE EEE EEEREREREEEREREREEEAEEREKEEEEEEEE 
(2) 006704 000004 1$132: SCOPE 
(2) 006706 012737 000032 001104 MOV #32,$TESIN -:SET TEST NUMBER IN AP* MAIL BOX 
1911 006714 042777 000100 174042 BIC #BIT6, acTCcsR = DISABLE INTERRUPTS 


. © 
v 


om 
i 


SS ee ee ee ee eee ee ee eee xx 


ana OO 


he 
me 


» 6) 


MUNQIPININININD SS 
CONAULSUAN —OWOO@Oneuviflwwy P>Y 


OOOOOOOOOOOOOOVONO 


—y 
00000 
VULVAR LSSS 


6-->8 


ee 


oOo 
N 


oo 


REEREKERE 
DWNAWEWN=00 


oo 
BRESSRASSE 


Wi 


oO 


a ee ee feed 
Ww 
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11/238 SLU LTC REPR DIAG DNMAC X24.07-563 02-FEB-82° 16:42 PAGE 10-2 
11 20-OCT-81 16:08 T32 TEST THAT SLU1 XMIT INTERRUPT CLEARS WITH LOADING TBUF SEQ 0048 
006722 004737 012356 JSR PC .WRPSW :SET PSW TO PRIORITY 7 
006726 000340 .WORD 340 
006730 017703 174052 MOV ACTVECT.R3 ;SAVE XMIT VECTOR 
0067 012777 007006 174044 MOV #2$,acTVECT “POINT XMIT VECTOR TO ERROR 
006742 052777 000100 174014 BIS WBIT6,aCTCSR ENABLE INTERRUPTS 
006750 005077 174012 CLR ac TBUF [LOAD TBUF 
006754 109777 174004 1$: IsTe acTCSR “WAIT FOR DONE (INTERRUPT) 
006762 005077 174000 CLR ac TBUF :FILL SECOND BUFFER TO RESET INT. 
004737 012356 JSR PC ,WRPSW “ALLOW INTERRUPTS 
006772 000140 .WORD 140 
006774 000240 NOP :GIVE TIME FOR ANY INTERRUPTS 
006776 042777 000100 173760 BIC #BIT6,aCTCSR § :DISABLE INTERRUPTS 
? 000402 BR 3$ “BR TO END OF TEST 
00 022626 2$: CMP (SP)+,(SP)+ :RESTORE SP AFTER INTERRUPT 
007010 104102 ERROR 102 
:LOADING TBUF DID NOT CLEAR INTERRUPT. 
007012 010377 173770 3$: MOV R3,aCTVECT SRESTORE XMIT VECTOR 
007016 SLU2IT: 
EERE EE EEEEEEEEKEEEEEKEEEEEEEEEEEEEREEEKEEKEEEEEEE 
“TEST 33 TEST THAT SLU2 XMIT INTERRUPTS ONLY WHEN ENABLED 
© ee EERE KEE RE REE KEE EKEREREKREEEEEEEEEEEEEREKEKEEEKEE 
007016 000004 1$133: SCOPE 
007020 012737 000033 001104 MOV #33, $TESIN SET TEST NUMBER IN APT MAIL BOX 
007086 032737 000002 001156 BIT #B1T1 ,axSDEVM :b0 THESE TESTS FOR THIS DEVICE? 
007034 001002 BNE $98 YES CONTINUE WITH TESTS 
007036 000137 010762 sli JMP LTCIT ae NO GO TO START OF NEXT SET OF TESTS. 
007042 042777 000100 173704 BIC #8116. aTCSR :CLEAR TRANSMIT INTERRUPT ENABLE 
007050 017703 173722 MOV TVECT.RS :SAVE XMIT VECT 
007054 012777 007100 173714 MOV #28, gaTVeCT “POINT XMIT VECTOR TO ERROR REPORT 
007062 105777 173666 1$: TSTB. ss aT CS “WAIT FOR DONE 
7066 100375 BPL 1$ 
7070 004737 012356 JSR PC ,WRPSW :SET PSW TO PRIORITY 3 
7074 000140 .WORD 140 
007076 000402 BR 3$ 
007100 022626 2$: CMP (SP)+,(SP)+ :RESTORE SP AFTER INTERRUPT 
007102 104116 ERROR 116 
:XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
007104 012777 007124 173664 38: MOV #4$,aTVECT “SET XMIT VECTOR TO END OF TEST 
007112 052777 000100 173634 BIS #81T6,aTCSR TENABLE INTERRUPTS 
007120 000240 NOP 
007122 104117 ERROR 117 :XMIT DID NOT INTERRUPT 
007124 042777 000100 173622 4S: BIC #B1T6,aTCSR ;DISABLE INTERRUPTS 
007132 022626 CMP (SP)+, (SP) + “RESTORE SP AFTER INTERRUPT 
007134 010377 173636 MOV R3,aTVECT “RESTORE XMIT VECTOR 


SERRE RARER EEE ERE REE ERE REE ERE EERE RR ERR E RRR 


eh ok *) planta A 
RIN SSSSSSSFESESSSS SS 


S33333 SESSSSSSSSTTSVVVTSSSTSSSSSTSZ2 
—~. . woovovowo 
Mn Sew @ 

SESS SISCAASSSSSSSRSSS ISSN 


co~ 


TO ee a ss 


$3333 


mr 


Bese 


— a i + + 
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11/238 SLU LTC REP 
P11 + 20-OCT-81 16:08 134 TEST SLU2 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED SEQ 0049 
seTEST 34 TEST SLU2 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 
EERE EEE EEE EEE EEE EERE RES 
007140 000004 $134: SCOPE 
00714 012737 000034 001104 MOV #34, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
007150 042777 000100 173576 BIC #BIT6,aTCSR “DISABLE INTERRUPTS 
007156 004737 012356 JSR PC,WRPSW “SET PSW TO PRIORITY 7 
007162 000340 .WORD 340 
0071 017705 173606 MOV aTVECT,R3 :SAVE XMIT VECTOR 
007170 01277 007216 173600 MOV #28 aTVECT “POINT XMIT VECTOR TO ERROR REPORT 
007176 105777 173552 1$: TSTB TCSR “WAIT FOR DONE 
007202 100375 BPL H 
7204 052777 000100 173542 BIS #B1T6,aTCSR : ENABLE INTERRUPT 
007212 000240 NOP 
007214 000402 BR 3$ = CONTINUE TEST 
007216 022626 2$: CMP (SP)+, (SP)+ sRESTORE SP AFTER INTERRUPT 
007220 104120 ERROR 120 
:XMIT INTERRUPTS AT PRIORITY=7 
007222 042777 000100 173524 38: BIC #B1T6,aTCSR “CLEAR INTERRUPT ENABLE 
007230 012777 007250 173540 MOV #4$,aTVECT “POINT XMIT VECTOR TO ERROR REPORT 
007236 004737 012356 JSR PC, WRPSW “SET PSW TO PRIORITY 3 
007242 000140 .WORD 140 
007244 000240 NOP 
007246 000402 BR 5$ :BR TO END OF TEST-NO INTERRUPT 
007250 022626 4$: CMP (SP)+,(SP)+ sRESTORE SP AFTER INTERRUPT 
007252 104121 ERROR 121 
:XMIT INTERRUPT OCCURES WITK BIT6 CLEAR 
007254 010377 173516 S$: MOV R3,aTVECT “RESTORE XMIT VECTOR 
SRR RRR ER ERE EERE RE REREA EERE EA ARERR REE RRR RAE R ES 
TEST 35 TEST SLU2 TRANSMITTER FOR DOUBLE INTERRUPTS 
8 RE REEEREREEEEREE EEE EREEEEREAEKEREREKREEEREREEEEEEREEEEEEKEE 
007260 000004 $135: SCOPE 
007262 012737 000035 001104 MOV #35 STESTN. -:SET TEST NUMBER IN APT MAIL BOX 
007 0 042777 000100 173456 BIC #B1T6,aTC = CLEAR INTERRUPT ENABLE 
7276 017703 «173474 MOV aT STVEC CT, Na “SAVE XMIT VECTOR 
007302 017704 173472 MOV aTPSW,R4 “SAVE XMIT PSW VECTOR 
7 012777 007350 173462 MOV #2$,aTVECT “SET UP XMIT VECTOR 
007314 012777 000340 173456 MOV #340, aTPSw “SET PIO 7 AFTER INTERRUPT 
007322 004737 012356 JSR PC,WRPSW “SET PSW TO PRIORITY 3 
007326 000140 .WORD 140 
007330 105777 173420 1$: TSTB. = @TCSR :WAIT FOR DONE . 
007334 100375 BPL $ 
007336 052777 000100 173410 BIS #BIT6,aTCSR : ENABLE INTERRUPTS 
007344 000240 NOP 
007346 104122 ERROR 122 
:XMIT INTERRUPT DID NOT OCCUR 
007350 022626 2$: CMP (SP) +, (SP)+ “RESTORE SP AFTER INTERRUPT 
007352 012777 007400 173416 MOV #4$,aTVECT “POINT XMIT VECTOR TO ERROR 
007360 004737 012356 JSR PC. WRPSW “SET PSW TO PRIORITY 3 
007364 000140 -WORD 140 


r— 
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16:08 


000100 


000036 
000001 
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000100 
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DNMAC X24.07-563 02-FEB-82- 
135 T SLU2 TRANSMITTER FOR DOUBLE INTERRUPTS 


4$: 


5$: 


TEST 


NOP 
BIC 
BR 


CMP 


ERROR 


MOV 
MOV 


#B1IT6,aTCSR 
5$ 
(SP)+,(SP)+ 
123 


R3,aTVECT 
R4,aTPSW 


16: 42 PAGE 10-4 


:GIVE TIME FOR ANY INTERRUPTS 
[DISABLE INTERRUPTS 
:BR TO END OF TEST 


RESTORE SP AFTER INTERRUPT 
:MMIT RE- ae 


SRESTORE XMIT VECTOR 
:RESTORE XMIT PSW VECTOR 


SRA EEE ERRE EEE R AES 


TEST THAT SLU2 XMIT INTERRUPT CLEARS WITH LOADING TBUF 


© eee EERE REE EEEEREEREKEEEEEEEEEEEEKEEEEEEEEKEKREREKEKE 


TEST 36 
$136: SCOPE 
MOV #36,$TESTN 
BIT #1, @&#SENV 
BEQ 70$ 
TST @A4$SPASS 
BNE TST37 
70$: 
BIC #B1T6,aTCSR 
JSR ,WRPSW 
WORD 34 
MOV @aTVECT.R3S 
MOV #2$ ,aTVECT 
BIS I1T6,aTCSR 
CLR TBUF 
1$: TSTB aTCSR 
BPL 1$ 
CLR a TBUF 
JSR PC, WRPSW 
WORD 140 
NOP 
BIC #BI1T6,aTCSR 
BR 3$ 
2s: CMP (SP)+,(SP)+ 
ERROR 124 
3$: CLR R1 
4$: INC R1 
BNE 4$ 
TST @RBUF 
MOV R3,aTVECT 


:;SET TEST NUMBER IN APT MAIL BOX 
ARE WE RUNNING UNDER APT 

:1F NO THEN DO aH 

71S THIS FIRST PASS 

:IF NO THEN SKIP TO NEXT TEST 


;DISABLE INTERRUPTS 
[SET PSW TO PRIORITY 7 


:SAVE XMIT VECTOR 

:POINT XMIT VECTOR TO ERROR 
SENABLE INTERRUPTS 

sL TBUF 

:WAIT FOR DONE (INTERRUPT) 


FILL SECOND BUFFER TO RESET INT. 
;ALLOW INTERRUPTS 


:GIVE TIME FOR ANY INTERRUPTS 
:DISABLE INTERRUPTS 
:BR TO END OF TEST 


RESTORE SP AFTER INTERRUPT 


;LOADING TBUF DID ee INTERRUPT. 


sUNTIL LOOP 
-CLEAR RECEIVER BUFFER 
“RESTORE XMIT VECTOR 


© KR REE REE EREEEEEEAEREREREREEEEEREEEEAEEEEEAAEEEEEREEE 


TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 


STEST 37 


© RIERA RE EE EEE EREREREREREEREREREREEEEEEAEARKEEARE ERE 


18137: 


SCOPE 

MOV #37 STESTN. 
BIC #B1T6,aTC 
BIC #B1T6,aR csr 
MOV ARVECT,R3 


3;SET TEST NUMBER IN APT MAIL BOX 
DISABLE TRANSMIT INTERRUPTS 
[DISABLE RECEIVER INTERRUPTS 
7SAVE RECEIVE VECTOR 


SEQ 0050 


ee 


CJKDIAO 11/238 SLU A? — DIAG 


CJKDIA.P11 


EE 


20-0CT 


012777 
004 


000240 
000402 
022626 
104127 


042777 
012777 
004737 
000140 
000240 
000402 


022626 
104130 


010377 


007662 
000100 


000100 
173074 


000040 
012356 


173052 


173012 
000100 


172756 


173156 


173060 


001104 


173044 


173002 


2764 
3000 


_— 
“IN 


DNMAC X 
137 


1$: 


2$: 


3$: 


4$: 


X24.07-563 02-FEB-82" 16: 42 PAGE 10-5 
TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 


MOV 
JSR 


CLR 
TSTB 
BP 


BIC 
MP 
MOV 


#2$ ,aRVECT 
— 


aTBUF 

@RCSR 

1$ 

3$ 
(SP)+,(SP)+ 
125 


#4$ ,aRVECT 
#B1T6,aRCSR 


126 
4#B1T6,@RCSR 


(SP)+,(SP)+ 
R3,@RVECT 


:POINT RCV VECTOR 1 RROR REPORT 


:SET PSW TO PRIORITY 


SEND A_ CHARACTER 
:WAIT FOR RECEIVER DONE 


;CONTINUE TEST 
;RESTORE SP AFTER INTERRUPT 
RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 


;POINT RCV VECTOR TO END OF TEST 
sENABLE RCV INTERRUPTS 
:GIVE ANY INTERRUPTS TIME 


;RCVR DID NOT INTERRUPT 


;DISABLE INTERRUPTS 
SRESTORE SP AFTER INTERRUPT 
SRESTORE RECEIVE VECTOR 


SR REE EERE EER REE EERE RARER EERE ERR ERERERR ERS 


TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 


“TEST 40 


© EERE EEE EEEREEEEKEEREKEEEEEEREKEEREEEE 


1$140: 


1$: 


2$: 


3$: 


4$: 


5$: 


SCOPE 
MO 


#40, $TESITN 
PC ,WRPSW 

. WORD 

@RVECT,R3 

#25, @RVECT 
aTBUF 

@RCSR 

1$ 
#B1T6,aRCSR 


3$ 
(SP)+, (SP)+ 
127 


#B1T6,aRCSR 
#4$ ,aRVECT 
PSW 


WORD 140 
5$ 


(SP)+,(SP)+ 
130 


R3,@RVECT 


:;SET TEST NUMBER IN APT MAIL BOX 


SET PSW TO PRIORITY 7 


:SAVE RECEIVE VECTOR 
:POINT R RCVR 43th TO ERROR REPORT 


;3 CHARACTER 
“WAIT FOR RECEIVER DONE 


s;ENABLE INTERRUPTS 
:GIVE TIME FOR INTERRUPT 


: CONTINUE TES 
:RESTORE SP AFTER INTERRUPT 
:RCVR INTERRUPTS AT PRIORITY 7 


:CLEAR INTERRUPT ENABLE 
:POINT RCVR VECTOR TO_ERROR REPORT 
:SET PSW TO PRIORITY 3 


:GIVE TIME FOR ANY INTERRUPT 
=BR TO END OF TEST, IF NO INTERRUPT 


RESTORE SP AFTER INTERRUPT 
:RCVR_ INTERRUPT wy 33 PASSED WITH BIT6 CLEAR 


SRESTORE RECEIVE VECT 


SERRA RRR EERE EERE EEE RARER REE REAR EERE ERA RRR EEE 


SEQ 0051 


———————— nn 


ee a re ee ee oe ene ae ee  :.00”O” OO 
_- ee ae i SC r+ + —_— ee — - —----— 
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CJKDIA.P11 20-OCT-81 16:08 141 TEST SLU2 RECEIVER FOR DOUBLE INTERRUPTS SEQ 0052 
(3) :*TEST 41 TEST SLU2 RECEIVER FOR DOUBLE INTERRUPTS 
(3) 5 REE EERE ARERR AREER ERAT EA AERA AREER EER ARE RE REAR REE 
(2) 010014 900004 1$141: SCOPE 
(2) 010016 012737 000041 001104 MOV #41, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
2105 010024 017703 172742 MOV ARVECT.R3 “SAVE RECEIVE VECTOR 
2106 910030 7704 172740 MOV aRPSW,R4 “SAVE RECEIVE PSW VECTOR 
3107 010034 012777 010102 172730 MOV #2$,aRVECT “POINT RCV VECTOR TO CONTINUE TEST 
2108 010042 012777 000340 172724 MOV #340, aRPSW “SET PRIORITY TO 7 AFTER INTERRUPT 
2109 010050 004737 012356 JSR PC, WRPSW “SET PSW TO PRIORITY 3 
2110 010054 00014 .WORD 140 
2111 010056 005077 172674 CLR aTBUF :SEND A CHARACTER 
11¢ 010062 105777 172662 1$: TSTB ~— @RCSR “WAIT FOR RCVR DONE 
2113 010066 100375 BPL 1$ 
e114 010070 052777 000100 172652 BIS #B1T6,aRCSR : ENABLE RCV INTERRUPTS 
e119 010076 000240 NOP “GIVE SOME TIME 
3117 010100 104131 ERROR 131 
$ii18 :RCVR INTERRUPT DID NOT OCCUR 
3120 010102 022626 2$: CMP (SP)+, (SP) + :RESTORE SP AFTER INTERRUPT 
121 010104 012777 010136 172660 MOV #3$,aRVECT “POINT RCV VECTOR TO ERROR REPORT 
2122 010112 004737 012356 JSR PC. WRPSW “RESET PSW TO PRIORITY 3 
3123 010116 000140 | “WORD 140 
2124 010120 009240 NOP :GIVE SOME TIME 
9125 010122 042777 000100 172620 BIC #B1T6,aRCSR “CLEAR INTERRUPT ENABLE 
2126 010130 010477 172640 MOV R4,aRPSW “RESTORE RECEIVE PSW VECTOR 
2127 010134 000402 “BR TO END OF TEST 
3129 010136 022626 3$: CMP (SP)+,(SP)+ :RESTORE SP AFTER INTERRUPT 
2130 010140 104132 ERROR 132 
2131 sRECEIVER RE-INTERRUPTED 
2132 010142 010377 172624 4$: MOV R3,aRVECT “RESTORE RECEIVE VECTOR 
1 
site SI RRR RRR EE ERE REAR EERE ERE REE ERRERAER RARER RARE 
(3) “TEST 42 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 
(3) 5 RRR RARER AREER ERE EERE EERE ERE EERE AREER RE RRR RRR E RES 
(2) 010146 000004 TST42: SCOPE 
(3) 010150 012737 000042 001104 MOV #42, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
21 010136 004737 012356 JSR PC, WRPSW “SET PSW PRIORITY TO 7 
21 10162 000340 .WORD 340 
2138 010164 017703 172602 MOV ARVECT.RS :SAVE RECEIVE VECTOR 
39139 010170 012777 010242 172574 MOV #2$, aRVECT “POINT RCV VECTOR TO ERROR REPORT 
140 10176 052777 000100 172544 BIS #B1T6,aRCSR “SET RCVR INTERRUPT ENABLE 
141 010204 005077 172546 CLR @TBUF “SEND A CHARACTER 
e142 10210 105777 172534 1$: TSTB ~— ARCSR “WAIT FOR DONE (INTERRUPT) 
2143 010214 100375 BPL 1$ 
2144 10216 5777 172530 TST @RBUF *READ RBUF TO CLEAR PENDING INTERRPUT 
2145 01022 737 (012356 JSR PC, WRPSW “SET PSW TO PRIORITY 3 
2146 10 ¢6 140 .WORD 140. 
2147 010230 000240 NOP :ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
3148 010236 042777 000100 172510 BIC #B1T6,aRCSR “NO INTERRUPT=CLEAR INT. ENABLE 
169 10240 000402 BR 3$ 
3181 010242 022626 2$: CMP (SP)+, (SP)+ sRESTORE SP AFTER INTERRUPT 
152 010244 104133 ERROR 133 “READING RBUF DID NOT CLEAR INTERRUPT 


fue ee ee — 
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CJKDIAO 11 
CJKDIA.P11 20-OCT-81 16:08 T42 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF SEQ 0053 
2153 
$12 010246 010377 172520 3$: MOV k3,a@RVECT sRESTORE RECEIVE VECTOR 
5159 
2158 SAREE EERE REE RRR AAR TERRA EERE EEE RE ES 
(? : ATEST 43 TEST SLU2 THAT RESET CLEARS RECEIVE INTERRUPT 
(3) < ceRRREREEEEEEERRE REE ERE EERE EERE ERE RARER E KE 
(2) 010252 000007 1$143: SCOPE 
(2) 010254 0127357 000043 001104 MOV #43, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
2159 010 $¢ 032737 000001 001120 BIT #1, @#SENV oe WE RUNNING UNDER APT 
(1) 010270 001403 BEQ = 708 :IF NO THEN DO TEST 
(1) 010272 005737 001106 TST @ASPASS :1S THIS FIRST PASS 
(2) O10ShS 001037 BNE TST44 ;I1F NO THEN SKIP TO NEXT TEST 
(1) 010 70$: 
2160 OO soe 000005 RESET :CLEAR EVERYTHING 
2161 010302 004737 012556 JSR PC ,WRPSW ;SET PSwW TO PRIORITY 7 
$196 0103506 000340 -WORD 340 
216 epee 017703 172456 MOV @RVECT ,R5 SAVE RECEIVE VECTOR 
2164 010314 012777 010366 172450 MOV #2$,,aRVECT sPOINT RCV VECTOR TO ERROR REPORT 
2165 010322 052777 000100 172420 BIS #B1T6,aRCSR SET RCV INTERRUPT ENABLE 
21 aye 012777 000377 172420 MOV #377 ,aTBUF ;SEND AN ALL 1°S CHARACTER 
2167 010 105777 172406 1$: TSTB @RCSR ;WAIT FOR RCV DONE 
2168 010342 100375 1$ 
$19? A rp: 000005 RESET sCLEAR RCV rats & RBUF 
2170 010346 004737 012556 JSR PC,WRPSW :SET PSW TO PRIORITY 3 
2171 010352 000140 -WORD 140 
$156 010354 OORSs9 NOP ;ALLOW TIME FOR AN ERRONEOUS INTERRUPT 
si? 010356 042777 000100 172364 BIC #B1T6,aRCSR :NO peg ee INT. ENABLE 
$156 010364 000402 BR 3$ ;CONTINUE TEST 
2176 
2177 010366 022626 2$: CMP (SP)+,(SP)+ RESTORE SP AFTER_INTERRUPT 
$15 010370 104134 ERROR 134 :RESET DID NOT CLEAR RCVR INTERRUPT 
At 010372 010377 172374 3$: MOV R3.a@RVECT ;RESTORE RECEIVE VECTOR 
$188 SERRE REE ERERER EERE AREER EER ERR ARERR EER EERE AER EERE 
(3) :STEST 44 TEST SLU2 THAT “OVERRUN & ERROR’ BITS CAN BE SET 
(3) ERRATA RRREA ARERR ERE RARE RAE RRR ARERR ERED 
(2) 010376 90000 18144: SCOPE 
‘o 010400 012737 000044 001104 MOV #44 ,STESIN ;3SET TEST NUMBER IN APT MAIL BOX 
$] 010406 032777 002000 170424 BIT #81T10,aSWR 1S THIS TEST DISABLED 
185 010414 001025 BNE TST45 F NOT ENABLED, BR TO NEXT 
gigs 010416 Orel 000003 MOV #3 ,RO SET i apa COUNT . TO SEND ys CHAR. 
g187 010422 003077 176330 1$: CLR aTBUF LOAD TRANSMIT BUFF 
188 Bees 105777 172322 2$: TSTB aTCSR ;WAIT FOR TRANSMIT DONE 
2189 010432 100375 BPL 2$ 
2190 My os 7 005300 DEC RO :DECREMENT CHARACTER COUNT 
2191 010436 001371 BNE 1$ ;BR IF ALL CH erensan NOT TRANSMITTED 
$136 010440 032777 040000 172304 BIT #81114, aRBUF : TEST FOR ~~" FLAG 
2195 010446 001001 BNE 3$ BR, IF SET 
side 010450 104135 ERROR 135 
5182 :"OR'' ERROR FLAG DID NO” SET 





e 6S 
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CJKDIA.P11 20-OCT-81 16:08 T44 TEST SLU2 THAT ‘OVERRUN & ERROR’’ BITS CAN 3E SET SEQ 0054 
2197 010652 032777 100000 172272 3%: BIT #B1T15,aRBUF : TEST ‘‘ERROR’’ FLAG 
$138 010460 the H BNE 4$ ;BR, IF SET 
199 010462 1041 ERROR 136 
$509 :""ERROR'' FLAG DID NOT SET WITH ‘‘OR’’ FLAG 
01 010464 4$: | 
5508 
cays SERRA EERE EAE ER ERE REAR AEA RRR ERER ERA AAR R EERE ARREARS 
(3) :*TEST 45 TEST THAT BREAK TRANSMITS ALL ZEROES 
(3) 5 RARER E EEE EERE EAA AAA AAA AERA RAR A AA ARERR 
(3) 010464 000004 TST45: SCOPE 
(2) 010666 012737 000045 001104 MOV #45, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
$gn2 010674 012777 177777 172254 MOV #-1,aTBUF : TRANSMIT ALL ONES TO RCVR 
2 be 010502 105777 172242 1$: TSTB @RCSR :WAIT FOR RCVR DONE 
2207 010506 100375 BPL 1$ 
2208 010510 005777 172236 TST aRBuUF sCLEAR DONE (LEAVING ALL ONES IN RBUF) 
2209 010514 052777 000001 172232 BIS #BITO,aTCSR : TRANSMIT BREAK 
2210 010522 005000 CLR RO :CLEAR A TIMER 
2211 OI ess 105777 172220 2$: TSTB @RCSR sWAIT FOR RCVR DONE 
$518 0105 100406 BMI CONT41 :BR IF DONE 
2213 010532 005200 INC RO :I1F NOT, INCREMENT TIMER 
$$i¢ 010534 0013573 BNE 2$ :BR IF TIME REMAINS 
$51$ 010536 042777 000001 172210 BIC #BITO,aTCSR :CLEAR BREAK BITS 
$515 010544 104137 ERROR 137 :BREAK DID NOT TRANSMIT ANYTHING 
2219 010546 105777 172200 CONT41: TSTB @RBUF : CHECK RECEIVE BUFFER FOR ZERO 
2220 010552 001404 BEQ 3$ :BR, IF 
$55) 010554 042777 000001 172172 BIC #BITO,aTCSR :CLEAR BREAK BITS 
2258 010562 104137 ERROR 137 :BREAK DID NOT TRANSMIT ALL ZEROES 
$552 010564 042777 000001 172162 3$: BIC #BI1TO,aTCSR :CLEAR BREAK BITS 
7 
2098 SRR RRR ERE REEE EERE REE ERE RAE ERA RRRRRE EERE REAR E EES 
(3) :*TEST 46 TEST THAT ‘'FR’’ ERROR CAN BE SET DURING BREAK 
(5) RRR EERE ERA ERERERERERER ERE ER ERE EERE EERE RARER ERR R RE 
(2) 010572 000004 TST46: SCOPE 
(2) 010574 012737 000046 001104 MOV #46,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
2229 010602 032777 002000 170230 BIT #BIT10,aSWR :1S THIS TEST DISABLED 
2230 010610 001025 BNE TST4 *BR TO NEXT TEST, IF DISABLED 
2231 010612 052777 000001 172134 BIS #BITO,aTCSR :SEND BREAK 
$536 010620 005077 172132 CLR a TBUF : TRANSMIT A CHARACTER TO TIME BREAK 
2233 010624 105777 172120 1$: TSTB @RCSR :WAIT FOR RCVR DONE 
2234 0106 100375 BPL 1$ 
2235 010632 042777 000001 172114 BIC #BITO,aTCSR :CLEAR BREAK BITS 
22 010640 032777 020000 172104 BIT #81113, aRBUF >CHECK FOR FRAMING ERROR FLAG 
$S%5 010646 001001 BNE 2$ :BR, IF SET 
2239 010650 104140 ERROR 140 
$529 :BREAK DID NOT SET FRAMING ERROR 
241 010652 032777 100000 172072 2$: BIT #811T15,a@RBUF : TEST ‘ERROR’ ‘FLAG 
$575 010660 001001 BNE 3$ :BR, IF SET 


2244 010662 104141 ERROR 141 
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TEST THAT ‘‘FR’’ ERROR CAN BE SET DURING BREAK 


7"ERROR'' FLAG DID NOT SET WITH ‘OR"’ FLAG 


EEE EERE EEE ERA AEAAEEEEEREEEEREAREAEREEAEREEEEEEEEERE 


**TEST 47 


REE EEE EE REE AEREEEREEEEEEEEAEEREAEERENAEEEEEEEEE 


1ST47: 


1$: 


2$: 


3$: 


4$: 


LTCIT: 


SCOPE 
MOV 


TEST DATA PATHS USING WRAP CABLE 


#47,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
#BIT7,aSwWR : THIS TEST ENABLED 
T50 7BR, IF NOT 
RI :CLEAR REGISTER FOR TEST DATA 
: TRANSMIT A BINARY COUNT PATTERN ~ UP 
;TO THE BIT POSITION INDICATED BY THE 
:CONTENTS OF LOCATION ‘‘SUSWR 


R4 s INCREMENT THE TEST DATA 
R1,aTBUF :XMIT A CHARACTER 

RO :CLEAR A TIMER 

@RCSR sWAIT FOR RECEIVER DONE 
3$ ; F DONE 

RO : INCREMENT TIMER IF NOT 
2$ :BR IF TIME REMAINS 

56 sRECEIVER DONE NOT SET 
@RBUF ,R2 ~ i GET RECEIVED CHARACTER 
R1,R2 : COMPARE DATA 


;BR, IF NON-COMPARE 
R1 :TEST XMIT DATA FOR ZERO 
TST50 BR, IF FINISHED 

1$ ;CONTINUE IF NOT 

:STORE EXPECTED DATA 


R1,$GDDAT 
R2,$BDDAT :STORE RECEIVED DATA 
142 :DATA COMPARE ERROR WITH WRAP CABLE 


EKER EERE REE EEE REREEEEAREEEEKEEEREREEEEKREREEKEERREEEE 


“*TEST 50 


REE EEE REE EEE RARREREEEEREKEEEEEEEREEEEEEEEEEKEEEEEREEE 


TST50: 


99$: 


1$: 


SCOPE 
MO 


TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 


#50,$TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
its ereremn 7D0 THESE TESTS FOR THIS DEVICE? 


9$ °F YES CONTINUE WITH TESTS 

BLAST “IF NO GO TO START OF NEXT SET OF TESTS. 
0 

PC -WRPSw :SET PSW TO PRIORITY 7 

ARTCVT.R3 :SAVE LINE CLOCK VECTOR 

aRTCPSW,R4 “SAVE LINE CLOCK PSW VECTOR 


Hes aRTCVT “SET RTC INTERRUPT VECTOR TO ERROR REPORT 
#346, aRTCPSW § :KEEP PRIORITY AT 7 


irae 7SET INTERRUPT ENABLE 


w” 


SEQ 0055 
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171674 
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T50 TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 


BNE 1$ 
NOP :GIVE TIME FOR ANY INTERRUPTS 
BR 3$ “BR, IF NO INTERRUPT OCCURS 
2$: CMP (SP)+, (SP)+ :RESTORE SP AFTER INTERRUPT 
ERROR 143 “RTC INTERRUPTS AT PRIORITY 7 
3$: CLR aLks :DISABLE RTC INTERRUPTS 
MOV #XXX, ARTCVT :SET RTC INTERRUPT VECTOR FOR ERROR 
JSR PC, WRPSW “CHANGE PSW TO PRIORITY 5 
ERROR 146 
XXX: MOV #4$, aRTCVT 
MIPS #240 
20$: INC RCO 
TST RO 
BPL 20$ 
NOP :GIVE TIME FOR ANY INTERRUPT 
BR 5$ "IF NO INTERRUPT - BR TO CONTINUE TEST 
4$: CMP (SP)+, (SP) + :RESTORE SP AFTER INTERRUPT 
ERROR 144 “RTC INTERRUPTS WITH INTERRUPTS DISABLED 
5$: MOV 47S ARTCVT -POINT RTC VECTOR TO END OF TEST 
BIS #PIT6,ALKS :ALLOW INTERRUPTS 
6$: INC RO 
TST RO 
BPL 6% 
NOP :GIVE TIME FOR INTERRUPT 
ERROR . 145 :RTC INTERRUPT DID NOT OCCUR 
7$: CMP (SP)+,(SP)+ :RESTORE SP AFTER INTERRUPT 
BIC #B1T6,aLKS “DISABLE INTERRUPTS 
MOV R3,aRTCVT “RESTORE LINE CLOCK VECTOR 


MOV R4 aRTCPSW “RESTORE LINE CLOCK PSW VECTOR 


5 CREEK RRE EERE REE EEE ERA REAR ERE RE RE REER ERE EERE 


“*TEST 51 TEST RTC FOR DOUBLE INTERRUPTS 
SS RRRREREERERERE ERR EREA EERE EERE ERR RAR AERA AER REA ARERR REARS 
1ST51: SCOPE 
MOV #51,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
BIT #1, a#$SENV “ARE WE RUNNING UNDER APT 
BEQ 70$ “IF NO THEN DO 
TST a#$PASS "1S THIS FIRST PASS 
- BNE TST52 “IF NO THEN SKIP TO NEXT TEST 


MOV ARTCVT,R3 :SAVE LINE CLOCK VECTOR 
MOV ARTCPSW,R4 “SAVE LINE CLOCK PSW VECTOR 

“SET UP RTC INTERRUPT VECTOR 
MOV #340, aRTCPSW DISALLOW INTERRUPTS AFTER THE INTERRUPT 
JSR PC ,WRPSW “SET PRIORITY TO 5 


SEQ 0056 
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T51 TEST RTC FOR DOUBLE INTERRUPTS 


-WORD 240 
CLR RO 
BIS #BIT6,aLKS sENABLE CLOCK INTERRUPTS 
1$: INC RO 
TST RO 
BPL 1$ 
NOP :GIVE TIME FOR ANY INTERRUPT 
ERROR 146 :RTC INTERRUPT DID NOT OCCUR 
2$: CMP (SP)+,(SP)+ sRESTORE SP AFTER INTERRUPT 
MOV #3$,,aRTCVT :POINT RTC VECTOR TO ERROR REPORT 
JSR PC,WRPSW >SET PSW TO PRIORITY 5 
-WORD 240 
NOP :GIVE SOME TIME FOR AN INTERRUPT 
BR 4$ -NO INTERRUPT - BR TO END OF TEST 
3$: CMP (SP)+,(SP)+ :RESTORE SP AFTER INTERRUPT 
ERROR 147 : INTERRUPT SEQUENCE DID NOT CLEAR 
: INTERRUPT REQUEST 
4$: BIC #BIT6,aLKS :DISABLE CLOCK INTERRUPTS 
MOV R3,@RTCVT sRESTORE LINE CLOCK VECTOR 
MOV R4,aRTCPSW sRESTORE LINE CLOCK PSW VECTOR 


REE REE EERE EERE EREEREEREKEEEEEEEEEEEEEEEEAKEEEEK 


S*TEST 52 TEST THAT RTC INTERRUPT CLEARS WITH RESET 


o Ke REE ERE ERE RE REEEE EEA EAEEREREEEEEAEREEEEEEEE 


TST52: SCOPE 
MOV #52, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
BIT #1, @#SENV sARE WE RUNNING UNDER APT 
BEQ 70$ :1F NO THEN DO TEST 
TST @ASPASS 71S THIS FIRST PASS 
70$ BNE TST53 IF NO THEN SKIP TO NEXT TEST 
JSR nt ere oo SET PRIORITY TO 7 
MOV @RTCVT RS SAVE LINE CLOCK VECTOR 
MOV #23 ,aRTCVvT ;POINT RTC VECTOR TO ERROR REPORT 
CLR RO 
BIS #BIT6,aLKS ENABLE CLOCK INTERRUPTS 
1$: INC RO 
TST RO 
BPL $ 
RESET ;CLEAR PENDING INTERRUPT WITH RESET 
JSR PC ,WRPSW ;SET PRIORITY TO 5 
-WORD 240 
NOP :GIVE TIME FOR ANY INTERRUPT 
BIC #B1T6,aLKS DISALLOW INTERRUPTS 
BR 3$ BR TO END OF TEST 
2$: MP (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 
ERROR 150 ;RESFT DID NOT CLEAR INTERRUPT 
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171316 

000053 001104 
000001 001120 
001106 

012240 

000340 177776 
171234 001060 
171222 001062 
171230 001064 
171216 001066 
171220 001070 
012232 

012234 

012236 

011726 171160 
000340 171154 
011762 171140 
000340 171134 
011716 171144 
000340 171140 
000100 171072 
000100 171060 
026320 

000100 171066 
177777 

177776 

012236 

012036 

012232 

171016 
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000100 170776 
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3$: 
BLAST: 
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TEST THAT RTC INTERRUPT CLEARS WITH RESET 


MOV 


R3,aRTCVT RESTORE LINE CLOCK VECTOR 


5 ERE E REE RARE EEE EERE EEE ER EERE RARER ERE EES 


**TEST 53 


+ SERRE REAR EE EEE R REE R ARERR EAA R ARR RARER 


TST53: 


70$: 


3$: 


WAITIO: 


TICKER: 


XMIT2: 


1$: 
REC2: 


SCOPE 
MOV 


TEST ALL INTERNAL OPTIONS SIMULTANEOUSLY 


#53, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
#B1T0,aM#SENV  :ARE WE RUNNING UNDER APT 
7 “IF NO DO TEST 
aa$PASS “I$ THIS FIRST PASS 
70$ “IF YES DO TEST 
$EOP “IF NO DO NOT DO TEST 
“CLEAR EVERY BODY 

#340,PS “SET PROCESSOR PRIORITY TO 7 
aTVECT,$TMPO 
ARVECT.$TMP1 
aCTVECT, $TMP2 
aCRVECT.$TMP3 
aRTCVT,$ 
XMTCT2 
RECCT2 

T 
#XMIT2, @TVECT ;:SET UP SLU2 TRANSMIT VECTOR 
#340, aTPS :AND PSW 
#RECD. ARVECT :SET UP SLU2 RECEIVER VECTOR 
#340, aRPS 


P iW :AND PSW 
ATICKER, @RTCVT ;SET UP RTC VECTOR 
#340, @RTCPSW ;AND PSW 


#B1T6, aTCSR sENABLE SLU2 XMIT INTERRUPT 
#BIT6, ARCSR ENABLE SLU2 RECEIVER INTERRUPT 
#BUF2, RS :SET UP RECEIVER BUFFER 


#BIT6, @LKs sENABLE RTC INTERRUPTS 

#-1, R1 INITIALIZE DATA FOR SLU2(1ST CHR. 0) 
;DROP PROCESSOR PRIORITY TO ZERO 
WAIT FOR INTERRUPT 

WAITIO 

COUNT UPDATE COUNT 

IOHAND :GO TO INTERRUPT HANDLER 

XMTCT2 UPDATE XMIT INTERRUPT COUNT 

R1 UPDATE XMIT DATA 

R1, a@TBuUF ;SEND NEXT CHAR 


CHARACTER 
XMTCT2, #400 71F 256 CHARACTERS HAVE NOT 


1 
#B1T6, aTCSR ELSE NO MORE XMIT INT 
IOHAND 360 TO INTERRUPT HANDLER 


RECCT2 UPDATE RECEIVER INTERRUPT COUNT 


SEQ 0058 


- - - _ — ——_——_— - — + — ee ee eee — 
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CJKDIA.P11 20-OCT-81 16:08 153 TEST ALL INTERNAL OPTIONS SIMULTANEOUSLY SEQ 0059 
438 011766 005777 170760 TST @RBUF :BIT 15 SETS IF ANY ERRORS OCCURRED 
2439 011772 100017 BPL 3$ “IF BIT IS CLEAR NO ERRORS 
3440 011774 017737 170752 001026 MOV ARBUF, SBDDAT :GET ERROR INFORMATION 
2441 012002 000005 RESET “CLEAR THE WORLD - STOP ALL 
Dhl : INTERRUPTS 
264 912004 020327 026320 CMP R3, #BUF2 “WAS MORE THAN 1 WORD TRANSFERRED 
2444 012010 00 BGT “IF YES GET LAST GOOD DATA 
2445 01 O12 012737 177777 001024 MOV -1, $GDDAT “IF NO MAKE GOOD DATA =1 
2446 012020 000403 BR “AND GET TO ERROR REPORT 
5447 012022 116337 177777 001024 1$: MOVB -1(R3). $GDDAT :GET LAST GOOD DATA RECEIVED 
3448 0120 104154 2$: ERROR 1 “RECEIVER STATUS ERROR 
2449 012032 117723 170714 3$: MOVB  @RBUF, (R3)+  :GET DATA AND STORE IT 
3451 012036 023727 012236 000074 IOHAND: CMP COUNT, #74 :HAS 1 SEC ELAPSED 
2452 012044 002412 BLT 3$ “IF NO CONTINUE TEST 
245 012046 042777 000100 170710 BIC WBIT6, ACTCSR IF YES STOP TRANSMISSIONS 
5454 012054 042777 000100 170672 BIC #BIT6, aTCSR 
3455 012062 042777 000100 170700 BIC WBIT6, a@aLKS “TURN OFF LINE CLOCK 
2456 012070 000401 BR WAITE 
497 012072 2 3$: RTI :RETURN FROM INTERRUPT TO AWAIT NEXT 
3459 012074 005037 177776 WAITER: CLR PS *MAKE PROCESSOR PRIORITY 0 
2460 012100 012705 140000 MOV #-40000, R5 :SET UP LOOP COUNTER 
2461 012104 062705 000001 1$: ADD #1, R5 “DO LOOP UNTIL RS = 0 
3462 012110 001375 BNE 
2463 012112 000005 RESET :STOP EVERYONE SHOULD BE DONE 
464 012114 012706 001000 V #1000,SP “RESET STACK AFTER LAST INTERRUPT 
2466 
3467 012120 023737 012232 012234 CHECK2: CMP XMTCT2, RECCT2 ;#OF XMIT INTERRUPTS = REC INTERRUPTS 
2468 012126 001401 BEQ 1$ “IF YES CHECK DATA 
2469 012130 104157 ERROR 157 “INTERRUPT COMPARISON ERROR 
3470 012132 012703 026320 1$: MOV #BUF2, R3 ‘INITIALIZE TO FIRST RECEIVED DATA 
2471 012136 005001 CLR 1 : INITIALIZE TO FIRST XMIT DAT 
2472 012140 013704 012232 MOV XMTCT2, R4& “GET # OF BYTES TRANSFERRED 
3473 012144 122301 2$: CMPB—s.-« (R33) +, _R1 i1S RECEIVED DATA = EXPECTED DATA 
2474 012146 001406 BEQ 3$ YES CONTINUE TESTING 
3475 012150 114337 001026 MOVB =(R3), $BDDAT TF NO GET ERROR INFORMATION 
2476 012154 010137 001024 MOV R1, $GDDAT 
2477 012160 104160 ERROR 160 :SLU2 DATA COMPARISON ERROR 
2478 012162 005203 INC R3 “IF COONTINUE ON ERROR RESET POINTER 
2479 012164 005201 3$: INC R1 “UPDATE TO NEXT GOOD DATA 
3480 012166 077412 SOB R4,2$ “LOOP UNTIL ALL DATA CHECKED 
2481 012170 013777 001060 170600 FINIE: MOV $TMPO, aTVECT  :RESTORE VECTORS 
3482 012176 013777 001062 170566 MOV STMP1, @RVECT 
3483 012204 013777 001064 170574 MOV STMP? acTVECT 
5484 612212 013777 001066 170562 MOV STMP3, aCRVECT 
3485 012220 013777 001070 170564 MOV $TMP4. aRTCVT 
486 012226 000137 012240 JMP SEOP :FINISHED TESTING GO TO END OF PASS 
2488 012232 000000 XMTCT2: .WORD 0 
2489 012234 000000 RECCT2: .WORD 0 
2490 012236 000000 COUNT: .WORD 0 
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CJKDIA.P11 20-0CT-81 16:08 T53 TEST ALL INTERNAL OPTIONS SIMULTANEOUSLY SEQ 0060 
2493 
“ns .SBTTL END OF PASS ROUTINE 
(2) FRA A AAA AAA ARE RAE RATER AAA AAA RARER AAA AAA AAT A ES 
(1) :*]NCREMENT THE PASS NUMBER (S$PASS) 
(1) :*TYPE ‘END PASS MOOO0OC' CWHERE XXXXX IS A DECIMAL NUMBER) 
(1) :*]F THERES A MONITOR GO TO IT 
ste :*]— THERE ISN'T JUMP TO TST1 
(1) 012240 SEOP: 
(1) O12 3 000004 SCOPE 
(1) 01224 eat 001002 CLR STSTNMA :;ZERO THE TEST NUMBER 
(1) 01 $8 0036 7 001106 INC $PASS :: INCREMENT THE PASS NUMBER 
(1) 012252 042737 100000 001106 BIC #100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
(1) 012260 005327 DEC (PC)+ :;LOOP? 
(1) QO1 $o¢ is ead SEOPCT: .WORD 
(1) 012264 00 O66 BGT SDOAGN 37 YES 
(1) O71 $98 0127 MOV (PC) +,a(PC)+ : RESTORE COUNTER 
(1) 0O1 0 000001 SENDCT: .WORD 1 
(1) 012272 012262 SEOPCT : 3 
(1) 012274 104401 012341 TYPE SENDMG >; TYPE ‘END PASS # 
(2) 01 013746 001106 MOV $PASS ,-(SP) =:SAVE $PASS FOR TYPEOUT 
(2) O11 104405 TYPDS ::GO TYPE--DECIMAL ASCII WITH SIGN 
(1) 012306 104401 012336 TYPE , SENULL sé E A NULL CHARACTER 
(1) 012312 013700 000042 $GET42: MOV af42,R0 ::GET MONITOR ADDRESS 
(1) O15358 001405 BEQ SDOAGN $é CH IF NO MONITOR 
(1) 01 339 000005 RESET >: CLEAR THE WORLD 
(1) 012322 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
(1) 012324 000240 NOP : SAVE ROOM 
(1) 012326 000240 NOP sé 
(1) 012330 000240 NOP > ;ACT11 
(1) 012332 SDOAGN: 
(1) 012332 000137 JMP a(PC)+ 3; RETURN 
(1) 012334 003430 SRTNAD: .WORD TST] 
(1) 012336 377 37 000 SENULL: .BYTE ~1,-1,0 : NULL CHARACTER STRING 
(1) 012341 015 042412 042116 SENDMG: .ASCIZ <15><12>/END PASS #/ 
(1) 012346 050040 051501 020123 
okgs 012354 000043 
496 012356 011646 WRPSW: MOV(SP),-(SP) :COPY RETUN PC 
497 012360 013616 MOV a(SP)+, (SP) sMOVE NEW PSW TO STACK 
2498 012362 062746 000002 ADD #2,-(SP) :ADJUST JSR RETURN 
rhs 012366 000002 RTI :POP RETURN PC & NEW PSW 
2504 : SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 
208 012370 012600 CATCH: MOV (SP)+,RO :GET ADDRESS OF TRAP VECTOR + 4 
504 01 $6 162700 000004 SUB ‘ :ADJUST TO POINT TO TRAP ADDRESS 
505 012376 010037 012416 MOV RO,BDVECT :STORE TRAP OR INTERRUPT ADDRESS 
5 01 296 016637 000002 012414 MOV 2(SP) ,OLDPC :GET PC WHERE TRAP OR INTERRUPT OCCURRED 
Seon 012410 104161 ERROR’ 161 :REPORT ERROR 
2509 012412 000000 HALT sPROGRAM MUST BE RESTARTED AT THIS POINT 
2510 012414 000000 OLDPC: .WORD 0 
$213 012416 000000 BDVECT: .WORD 0 


men ee nee 
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CJKDIA.P11 20-OCT-81 16:08 END OF PASS ROUTINE SEQ 0061 
51 
3314 SERRA REE RRR AEE REAR AEA EERE ERE ATT TARE ARTE REE 
515 :*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
$21$ :*SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL 
51 :*AND GO TO SERRTYP ON ERROR | 
$218 ;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
519 ;*SW15=1 HALT ON 
$250 ;*SW13=1 INHIBIT ERROR TYPEOUTS 
$2 1 ; *SWO9= LOOP IN ERROR 
256 ; *CALL 
25 $@ ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
$2S¢ FERRER EERE E EERE RR AER ERE EERE HE 
2525 
$259 012420 SERROR: 
$3 Oise 0 103637 001003 7$: INCB SERFLG ;SET THE ERROR FLAG 
528 012424 001775 BEQ ;DON'T LET FLAG GO TO ZERO 
$2 1 1¢9 013777 001002 166406’ MOV STSTNM,@DISPLAY ;DISPLAY TEST NUMBER AND ERROR FLAG 
> 0124 005237 001012 INC SERTTL ; INCREMENT ERROR COUNT 
soe) 012440 011637 001016 MOV (SP) , SERRPC ;GET ADDRESS OF ERROR INSTRUCTION 
25 $ 012444 Io ae 000002 001016 SUB #2, SERRPC 
2533 012452 117737 166340 001014 MOVB  aSERRPC,SITEMB ;STRIP AND SAVE THE ERROR ITEM CODE 
S23¢ oIStee 032777 020000 166352 BIT #B1T13,aSWR ;SKIP TYPEOUT IF SET 
535 01 296 001004 BNE 20$ ;SKIP_TYPEOUTS 
2536 012470 004737 012602 JSR PC, SERRTYP :GO0 TO USER ERROR ROUTINE 
2537 012474 104401 001075 TYPE - SCRLF 
2538 012500 20S: 
2539 012500 122737 000001 001120 CMPB #APTENV, SENV sRUNNING IN APT MODE 
2540 012506 001007 BNE :NO, SKIP APT ERROR REPORT 
2541 012510 113737 001014 012522 MOVB SITEMB,21$ ;SET ITEM NUMBER AS ERROR NUMBER 
S276 012516 004737 013304 JSR PC,SATY4 sREPORT FATAL ERROR TO APT 
25435 012522 21$: BYTE 0 
2544 012525 000 -BYTE 0Q 
2545 012524 000777 22$: BR 22$ :APT ERROR LOOP 
2546 01 268 005777 166306 2$: TST @SWR :HALT ON ERROR 
2547 0125352 100001 BPL 3$ ;SKIP IF CONTINUE 
2548 012534 000000 HALT sHALT ON ERROR: 
2549 012536 104407 3$: CKSWR ;TEST FOR CHANGE IN SOFT-SWR 
2550 012540 032777 001000 166272 BIT ABITOD ,aSwR ;LOOP ON ERROR SWITCH SET? 
2551 012546 001402 BEQ ; F 
$226 Oiseee 013716 001010 MOV SLPERR, (SP) ;FUDGE RETURN FOR LOOPING 
2553 012554 005737 001072 4$: TST SESCAPE ;CHECK FOR AN ESCAPE ADDRESS 
2554 012560 001402 BEQ 5$ : F NONE 
$222 Oiseee 013716 001072 Ss MOV SESCAPE , (SP) ;FUDGE RETURN ADDRESS FOR ESCAPE 
$389 012566 022737 012322 000042 CMP #SENDAD,a#42 =; ACT-11 AUTO-ACCEPT? 
2558 012574 001001 BNE 6$ :BR IF NO 
2559 012576 000000 HALT s YES 
2560 012600 6$: 
$263 012600 000002 RTI ;RETURN 


: 
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CJKDIA.P11 20-OCT-81 16:08 END OF PASS ROUTINE SEQ 0062 

2564 

2565 _SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) sRARRE REE AAA EERE EAR EAA RARE EER ERR ARE ERE R ERR EERE 
(1) <STHIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITEMB) 9,0 DETERMINE, WH WHICH 
(1) “ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’’ (SERRTB), 
C) “AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE CRROR: 
(1) 012602 SERRTYP: 7 ee 
(1) 012602 104401 001075 TYPE  ,$CRLF :s"'CARRIAGE RETURN’ & "LINE FEED’ 
(1) 012606 010046 MOV RO,-(SP) ee 
(1) 012610 005000 CLR RO :=PICKUP THE ITEM INDEX 
(1) 012612 153700 001014 BISB  a#$ITEMB,RO 
(1) 012616 001004 BNE 1$ :IF ITEM NUMBER IS ZERO, JUST 
(1) “° TYPE THE PC OF THE ERROR 
(2) 012620 013746 001016 MOV SERRPC,-(SP)  ::SAVE SERRPC FOR TYPEOUT 
(2) ;;ERROR ADDRESS 
(2) 012624 104402 TYPOC *:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 012626 000426 BR 6$ *:GET OUT 
(1) 012630 005300 1$: DEC RO : ADJUST THE INDEX SO THAT IT WILL 
(1) 012632 006300 ASL RO :: WORK FOR THE ERROR TABLE 
(1) 012634 006300 ASL RO 

(1) 012636 006300 ASL RO 

(1) 012640 062700 001160 ADD #SERRTB,RO i FORM TABLE POINTER 
(1) 012644 012037 012654 MOV (RO) +,2$ PICKUP "ERROR MESSAGE’’ POINTER 
(1) 012650 001404 BEQ 3$ ii SKIP UTYPEOUT IF NO POINTER 
(1) 012652 104401 TYPE [TYPE THE "ERROR MES 
(1) 012654 2$: .WORD 0 :VERROR MESSAGE'’ POINTER GOES HERE 
(1) 012656 104401 001075 TYPE ,$CRL 23 CARRIAGE RETURN’ & "LINE FEED 
(1) 012662 012037 012672 3$: MOV ROS 4$ CKUP ‘DATA HEADER’ POINTER 
(1) 012666 001404 BEQ $$ co eip TYPEOUT IF 0 
(1) 012670 104401 TYPE ::TYPE THE ‘DATA HEADER" 
(1) 012672 0 4$ .WORD 0 i DATA HEADER" POINTER GOES HERE 
(1) 012674 104401 001075 TYPE  ,$CRLF : / CARRIAGE RETURN’ & "LINE FEED™ 
(1) 012700 011000 5$: MOV (RO) .RO PICKUP "DATA TABLE POINTER 
(1) 012702 001004 BNE 360 TYPE THE DAT 
(1) 012704 012600 6$: MOV (SP)+,RO SRESTORE RO ea 
(7) 012706 104401 0901075 TYPE  ,$CRLF :: "CARRIAGE RETURN'' & “LINE FEED’ 
(1) 012712 000207 RTS Pc : "RETURN 
(1) 012714 7$: 
(2) 012714 013046 MOV @(RO)+,-(SP) — ;SAVE_@(RO)+ FOR TYPEQUT 
(2) 01 716 104402 TYPOC “GO TYPE--OCTAL ASCIICALL DIGITS) 
(1) 012720 005710 TST (RO) 3315 THERE ANOTHER NUMBER? 
(1) 012722 001770 BEQ 6$ IF NO 
(1) 012724 104401 012732 TYPE 8$ TYPE TWO(2) SPACES 
(1) 012730 000771 BR $ sh 
(1) 012732 020040 000 8$: mSCiz / / « TWO(2) SPACES 

mS 012736 “EVEN 


J 


O& 


SN NNN GS 
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11 20-0CT 
012736 012737 
012744 012737 
012752 010046 
012754 010146 
012756 010246 
012760 010346 
012762 Here 
012764 010546 
O15! 017746 
012772 010637 
012776 012737 
01 000000 
013006 000776 
013010 012737 
013016 013706 
013022 012677 
013026 012605 
013030 012604 
013032 012603 
OI Soe 012602 
013036 012601 
013040 012600 
013042 012737 
OT epee 012737 
013056 005037 
Ab ss 005237 
013066 001375 
013070 104401 
013072 013104 
013074 000002 
013076 000000 
013100 000776 
SES 

13104 005015 
013112 000122 
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16:08 


047520 


000024 
000026 


000024 


000024 


000024 
000026 


042527 


rps ob 


FARRAR ERRATA AEA AEA AREER RE REE AREER ER EERE EERE ES 


«ee tee ee ee ee RRR EERE RARE RRR REREERERERREEEAEEERE RETA ee 


$PURDN: 


SERRE EEE RE RARER E RARER REE RR REA ES 
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$PwRUP: 


1$: 


SPWRMG: 
SILLUP: 


SSAVR6: 
SPOWER: 
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ERROR MESSAGE TYPEOUT ROUTINE 


POWER DOWN AND UP ROUTINES 
:*POWER DOWN ROUTINE 


MOV #$ILLUP, ri he ;SET FOR FAST UP 


MOV +340 ae RVEC+2 ;PRIO:7 

MOV RO,- the “PUSH RO ON STACK 
MOV R1,-(SP) “PUSH R1 ON STACK 
MOV R2,-(SP) *PUSH R2 ON STACK 
MOV R3,-(SP) *PUSH R3 ON STACK 
MOV R4,-(SP) “PUSH R4 ON STACK 
MOV R5,-(SP) “PUSH R5 ON STACK 
MOV aswR,-(SP) “PUSH @SWR ON STACK 
MOV SP, $SAVR6 “SAVE SP 

MOV | #SPWRUP, a#PWRVEC ;SET UP VECTOR 
BR 72 :HANG UP 


:*POWER UP ROUTINE 
MOV ASILLUP,@#PWRVEC ;SET FOR FAST DOWN 
MO R6, SP :GET SP 
:POP STACK INTO @SWR 


MOV (SP)+,RO :POP STACK INTO RO 

MOV #SPWRDN, @#PWRVEC ;SET UP THE POWER DOWN VECTOR 

MOV azaud aHPURY VEC+2 :PRIO: 7 

CLR VR6 WAIT LOOP FOR THE TTY 

INC SSAvR6 :WAIT FOR THE INC 

BNE 1$ [OF WORD 

TYPE ;REPORT THE POWER FAILURE 

SS SPOWER :POWER FAIL MESSAGE POINTER 

HALT THE POWER UP SEQUENCE WAS STARTED 
BR “2 ‘BEF ORE THE POWER DOWN WAS COMPLETE 
0 PUT THE SP HERE 


-ASCIZ <15><12>'’POWER’’ 


rn er a ee ee ee 


SEQ 0063 


~~ 
oO 
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20-OCT-81 16:08 POWER DOWN AND UP ROUTI SEQ 0064 
.SBTTL SCOPE HANDLER ROUTINE 
Seueseennemneneeneeteesenas eater ee aaaasn tT taki taareeeeeedl 
 STHIS oot oe CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
; *AND L LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
> « THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
> *SW14=1 LOOP ON TEST 
: *SWO09=1 OOP ON ERROR 
> *CALL 
;* SCOPE ; ;SCOPE=I0T 
013114 SSCOPE: 
013114 104407 CKSWR sTEST FOR CHANGE IN SOFT-SWR 
013116 032777 040000 165714 18: BIT #B1T14,aSWR : SLOOP ON PRESENT TEST? 
013124 001052 BNE SOVER sYeS IF SW14=1 
sMHARASTART OF CODE FOR THE XOR Tes Tennaese 
013126 000416 SXTSTR: BR 6$ :1F RUNNING ON THE a. TESTER CHANGE 
* THIS INSTRUCTION TO A (NOP=240) 
013130 013746 000004 MOV @#ERRVEC,-(SP) «SAVE THE CONTENTS OF THE ERROR VECTOR 
013134 012737 013154 000004 MOV #5$,a#ERRVEC ::SET FOR TIMEOUT 
013142 005737 177060 TST av 53 OUT OR? 
013146 012637 000004 MOV (SP) +, a#ERRVEC : sRESTORE THE ERROR VECTOR 
013152 000421 BR SSVLAD O TO THE NEXT TEST 
013154 022626 5$: CMP (SP)+,(SP)+ «CLEAR THE STACK AFTER A TIME OUT 
013156 012637 000004 MOV (SP) + @#ERRVEC : sRESTORE THE ERROR VECTOR 
013162 000407 BR 7$ LOOP ON THE PRESENT TEST 
013164 6$::44AHAEND OF CODE FOR THE XOR- +ESTERAAMHA 
013164 105737 001003 2$: TSTB SERF Ls HAS AN AN ERROR OCCURRED? 
013170 001412 BEQ SSVL F 
013172 032777 001000 165640 BIT #01109. aSUR >: LOOP ON ERROR? 
013200 001404 BEQ 38 F 
013202 013737 001010 001006 /7$: MOV SLPERR.$LPADR :;SET LOOP ADDRESS TO LAST SCOPE 
013210 000420 BR SOVER 
Ot asi¢ 105037 001003 4$: CLRB SERFLG ON THE ERROR FLAG 
013216 105237 001002 $SVLAD: INCB STSTNM T TEST NUMBERS 
013566 113737 001002 001104 MOVB STSTNM,STESTN SET TEST NUMBER IN APT MAILBOX 
013230 011637 001006 MOV (SP) .S$LPADR SAVE SCOPE LOOP ADDRESS 
013234 011637 001010 MOV (SP) ,SLPERR : : SAVE ERROR LOOP ADDR 
013240 005037 001072 CLR SESCAPE :: CLEAR THE ESCAPE FROM ERROR ADDRESS 
013244 112737 0001 001015 MOVB #1,$ERMAX szONLY ALL 1) ERROR ON NEXT TEST 
013252 013777 001002 165562 SOVER: MOV STSTNM,@DISPLAY i tt ge Y TEST NUMBER 
013260 013716 001006 MOV SLPADR, (SP) : :FUDGE RETURN ADDRESS 
013264 000002 RTI s: FIXES PS 
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~81 SCOPE HANDLER R 


20-0CT 16:08 SEQ 0065 


on 
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4 
3 
5 
3 
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013534 


000001 
000001 


000001 


013530 
000001 
000100 
000004 
000002 
001100 


001114 


001114 


001116 
000004 


000004 
000002 
177776 
013534 
013532 
001120 


001100 


001120 
001121 


000004 


001100 


013442 
000004 


001102 
000004 
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*SBTTL APT COMMUNICATIONS ROUTINE 


23 REA EERE REE REEAEEEEREREERREREEEEAKEREREERERE 


SATY1: 
SATY3: 


SATY4: 
SATYC: 


1$: 


2$: 


3$: 





#1,$FFLG :TO REPORT FATAL ERROR 

#) ,SAFLG :TO TYPE A MESSAGE 

#1,$FFLG :TO ONLY REPORT FATAL ERROR 
RO,-(SP) :PUSH RO ON STACK 

R1,-(SP) :PUSH R1 ON STAC 


K 
$MFLG “SHOULD TYPE A MESSAGE? 
5$ :IF NOT: 

HAPTENV, SENV OPERATING. UNDER APT? 
#APTSPOOL , SENVM :SHOULD SPOOL MESSAGE? 


: BR 
ater? we ;GET MESSAGE ADDRESS 


#2,4(SP “BUMP RETURN ADDRESS 

SGTYPE :SEE IF DONE W/ LAST XMISSION? 

:IF NOT: WAIT 

RO, $MSGAD “PUT ADDRESS IN MAILBOX 
(R0)* “FIND END OF MESSAGE 
$MSGAD ,RO :SUB START OF MESSAGE 
RO “GET MESSAGE LENGTH IN WORDS 
RO, $MSGLGT “PUT LENGTH IN MAILBOX 
#4. $MSGTYPE “TELL APT TO TAKE MESSAGE 
a4(SP),4$ :PUT MSG ADDR IN JSR LINKAGE 
#2.4(SP “BUMP RETURN ADDRESS 
177776,~(SP) “PUSH 177776 ON STACK 
BC, STYPE “CALL TYPE MACRO 


SEFLG : SHOULD REPORT FATAL ERROR? 
SENV “RUNNING UNDER APT? 


12$ IF NOT: 

SMSGTYPE :FINISHED LAST MESSAGE? 
$ :IF NOT: WAIT 

a4(SP),$FATAL ;GET ERROR # 

SMSGTYPE :TELL APT TO TAKE ERROR 

#2,4(SP) : RETURN ADDRESS 

SFFLG »CLEAR FATAL F 

$LFLG :CLEAR LOG FLA 

SMFLG :CLEAR MESSAGE FLAG 

(SP)+,R1 :POP STACK INTO R1 

(SP)+,RO :POP STACK INTO R1 

* RETURN 

0 :LOG FLAG 

0 sFATAL FLAG 
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APTSIZE=200 
APTENV=001 

APTSPOOL=100 
APTCSUP=040 
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SEQ 0066 
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A.P11 20-OCT-81 16:08 APT COMMUNICATIONS ROUTINE SEQ 0067 
| 2680 
| <r .SBTTL TYPE ROUTINE 
(2) 3 s REET 
(1) => *ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUSi TERMINATE WITH A O BYTE. 
(1) :>*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) > *NOTE1: S$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) : *NOTE2 SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
oss : *NOTE3 S$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
(1) > *CALL: 
(1) :*1) USING A TRAP INSTRUCTION 
oie i TYPE »~MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 
(1) :* TYPE 
(1) st ME SADR 
3 . 
(1) 013534 105737 001057 $TYPE: TSTB STPFLG ::1S THERE A TERMINAL? 
(1) 013540 100002 BPL 1$ sg e 
(1) 013542 000000 HALT ::HALT HERE IF NO TERMINAL 
(1) 013544 000430 BR 3$ 3 E 
(1) 013546 010046 1$ MOV RO,-(SP) 7: SAVE RO 
(1) 013550 017600 000002 MOV a2(SP).RO >:GET ADDRESS OF ASCIZ STRING 
(1) 013554 122737 000001 001120 CMPB #APTENV,SENV : RUNNING IN APT 
(1) 013562 001011 BNE 62$ ::NO,GO CHECK FOR APT CONSOLE 
(1) 013564 132737 000100 001121 BITB #APTSPOOL,$SENVM ;;SPOOL MESSAGE TO APT 
(1) 013572 001405 BEQ 62$ ::NO,GO CHECK FOR CONSOLE 
(1) 013574 010037 013604 MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 
(1) 013600 004737 013274 JSR PC,$ATY3 >:SPOOL MESSAGE TO APT 
(1) 013604 0 61$: 2 0 > :MESSAGE ADDRE 
(1) 013606 132737 000040 001121 62$: BITB #APTCSUP.SENVM ::APT CONSOLE SUPPRESSED 
(1) 013614 001003 BNE ::YES,SKIP TYPE OUT 
(1) 013616 112046 2$ MOVB (RO) +,-(SP) ::PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 013620 001005 BNE 4$ >:BR IF IT ISN'T THE TERMINATOR 
(1) Ot 3054 005726 TST (SP) + >: IF TERMINATOR POP IT OFF THE STACK 
(1) 013624 0126 60$: MOV (SP)+,RO : ;RESTORE RO 
(1) OI ees 062716 000002 3$: ADD #2, (SP) : sADJUST RETURN PC 
(1) 013632 0 RTI $3 
(1) 013634 122716 000011 4$: CMPB #HT, (SP) : BRANCH IF <HT> 
(1) 013640 001430 BEQ 
(1) 013642 122716 000200 CMPB ACRLF , (SP) : ;BRANCH IF NOT <CRLF> 
(1) 013646 001006 BNE 5$ 
(1) 013650 005726 TST (SP)+ :;POP <CR><LF> EQUIV 
(1) 013652 104401 TYPE :;TYPE A CR AND LF 
(1) 013654 001075 SCRLF 
(1) 013656 105037 014064 CLRB SCHARCNT :: CLEAR CHARACTER COUNT 
(1) 013662 000755 BR $ ::GET NEXT CHARACTER 
(1) 013664 004737 013746 S$: JSR PC. $TYPEC :-:G0 TYPE THIS CHARACTER 
(1) 013670 123726 001056 6$: CMPB SFILLC,(SP)+ >:1S IT TIME FOR FILLER CHARS.? 
(1) 013674 001350 BNE 2$ ::1F NO GO GET NEXT CHAR. 
(1) 013676 013746 001054 MOV SNULL .- (SP) :>:GET # OF FILLER CHARS. NEEDED 
(1) ::AND THE NULL CHAR. 
(1) 013702 105366 000001 7$: DECB 1(SP) ::DOES A NULL NEED TO BE TYPED? 
(1) 013706 002770 BLT 6 ::BR IF NO--GO POP THE NULL OFF OF STACK 
(1) 013710 004737 013746 JSR PC .$TYPEC ::G0 TYPE A 
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LTC 
20-OCT-81 16:08 TYPE ROUTINE SEQ 0068 

105337 014064 DECB  $CHARCNT ::DO NOT COUNT AS A COUNT 

000770 ar 7$ 7; LOOP 
:HORIZONTAL TAB PROCESSOR 

112716 000040 8S: mOVB #° ,(SP) : REPLACE TAB WITH SPACE 

0 737 013746 9$: JSR PC. $TYPEC =: TYPE A SPACE 

132737 000007 014064 BITB #7.$CHARCNT ::BRANCH IF NOT AT 

001372 BNE g :: TAB STOP 

005726 TST (SP) + =:POP SPACE OFF STACK 

000724 —_— Be 2$ >:GET NEXT CHARACTER 

105777 165072 TSTB = a@STKS ::CHAR IN KYBD BUFFER? :MJDO01 

100022 BPL 10$ :;BR IF NOT :MJDOO1 

017746 165066 MOV a$TKB,-(SP) *: CHAR =MJDO01 

042716 177600 BIC #177600, (SP) ::STRIP EXTRANEOUS BITS >MJDO01 

122716 000023 CMPB = #SXOFF, (SP) WAS CHAR XOFF *MJDO01 

001012 BNE 102$ -:BR IF NOT =MJDOO1 
101$: :MJD001 

105777 165046 TSTB = @STKS +:WAIT FOR CHAR =MJDOO1 

100375 BPL :MJD001 

117716 165042 MOVB  a$TKB, (SP) ::GET CHAR =MJDO01 

042716 177600 BIC #177600, (SP) *:STRIP IT =MJDOO01 

122716 000021 C(MPB = #$XON, (SP) *:WAS IT XON? =MJDO01 

001366 BNE 101$ ::BR IF NOT :MJDO01 
102$: >MJDOO1 

005726 TST (SP) + ::FIX STACK >MJDO01 
10$: :MJD001 

105777 165024 TSTB = aS TPS ::WAIT UNTIL PRINTER IS READY 

100375 BPL 10$ >MJDO001 

116677 000002 165016 MOVB 2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 

122766 000015 000002 CMPB —s-« #CR,, 2(SP) *:7S CHARACTER A CARRIAGE RETURN? 

001003 BNE ss CH IF NO 

105037 014064 CLRB § $CHARCNT >: YES=-CLEAR CHARACTER COUNT 

000406 AR STYPEX ssEXIT 

122766 000012 000002 1$: CMPB ss ML, 2 (SP) *:7S CHARACTER A LINE FEED? 

001402 BEQ STYPEX *: CH IF YES 

105227 INCB ~— (PC) + *: COUNT THE CHARACTER 

000000 SCHARCNT:.WORD 0 :: CHARACTER COUNT STORAGE 

000207 S$TYPEX: RTS PC 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


ETT t titi eter i tet Tr ot 1 llelebedalellelalelababababbsieieieioiaials 

-*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL (ASCII) R AND TYPE IT. 

co + ip i cea HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
** 2 


3* MOV NUM, - (SP) : ;NUMBER TO BE TYPED 

7* TYPOS -:CALL FOR TYPEOUT 

7* -BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* -BYTE ™ : :M=1 0 

;* :2:1=TYPE LEADING ZEROS 

;* ::Q0=SUPPRESS LEADING ZEROS 

*® 

* e$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
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20-OCT-81 16:08 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0069 
s*$TYPOS OR STYPOC 
:*CALL: 
+ MOV NUM, - (SP) ::NUMBER TO BE TYPED 
:* TYPON =:CALL FOR TYPEOUT 
** , 
; #$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3* MOV NUM, - (SP) : ;NUMBER TO BE TYPED 
i TYPOC =:CALL FOR TYPEOUT 
017646 000000 $TYPOS: MOV a(SP),-(SP) ::PICKUP THE MODE 
116637 000001 014313 MOVB 1(SP).$OFILL  §$;;LOAD ZERO FILL SWITCH 
112637 014315 MOVB - (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
062716 000002 ADD #2, (SP) *:ADJUST RETURN ADDRESS 
000406 BR $TYPON 
112737 000001 014313 $TYPOC: MOVB #1,$OFILL ::SET THE ZERO FILL SWITCH 
112737 000006 014315 MOVB $ #6,$OMODE+1 *=SET FOR SIX(6) DIGITS 
112737 000005 014312 S$TYPON: MOVB #5,$OCNT *=SET THE ITERATION COUNT 
010346 MOV R3,-(SP) = =SAVE R3 
010446 MOV R4,-(SP) =: SAVE R& 
010546 MOV R5.-(SP) > SAVE RS 
113704 014315 MOVB  $OMODE+1,R4 GET THE NUMBER OF DIGITS TO TYPE 
005404 NEG R4 
062704 000006 ADD #6,R4 : SUBTRACT IT FOR MAX. ALLOWED 
110437 014314 MOVB  R4,$OMODE *:SAVE IT FOR USE 
113704 014313 MOVB  $OFILL,R4 *=GET THE ZERO FILL SWITCH 
016605 000012 MOV 12(SP) .R5 *=PICKUP THE INPU] NUMBER 
005003 CLR R3 ==CLEAR THE OUTPUT WORD 
006105 1$: ROL R5 = :ROTATE MSB INTO ‘'C’’ 
000404 BR 3$ -:GO0 DO MSB 
006105 2$: ROL RS ::FORM THIS DIGIT 
006105 ROL R5 
006105 ROL 5 
010503 MOV R5,R3 
006103 3$: ROL R -:GET LSB OF THIS DIGIT 
105337 014314 DECB  $OMODE =: TYPE THIS DIGIT? 
100016 BPL ::BR IF NO 
042703 177770 BIC #177770,R3 ==GET RID OF JUNK 
001002 BNE 4$ :: TEST FOR 
005704 TST R4 =: SUPPRESS THIS 0? 
001403 BEQ 5$ >:BR IF YES 
005204 4$: INC R4 ==DON'T SUPPRESS ANYMORE 0'S 
052703 000060 BIS #°0,R3 >:MAKE THIS DIGIT ASCII 
052703 000040 5$: BIS #’ —R3 “:MAKE ASCII IF NOT ALREADY 
110337 014310 MOVB  R3,8$ >: SAVE FOR TYPING 
104401 014310 TYPE 64 *:G0 TYPE THIS DIGIT 
105337 014312 7$: DECB $0CNT =:COUNT BY 1 
003347 BGT 2$ ::BR IF MORE TO DO 
002402 BLT 6$ > BR IF DONE 
005204 INC R4 :: INSURE LAST DIGIT ISN'T A BLANK 
000744 BR 2$ =:GO DO THE LAST DIGIT 
012605 6$: MOV (SP)+,R5 : RESTORE R5 
012604 MOV (SP) +,R4 > :RESTORE R4 
012603 MOV (SP)+,R3 - =RES 


000002 000004 MOV 2(SP) ,4¢ 


;sRESTORE R3 
SP) 7;SET THE STACK FOR RETURNING 
012616 MOV (SP) +, (SP) 
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PR D 
6:08 BINARY TO OCTAL ‘ASCII) AND TYPE SEQ 0070 
RTI ; ;RETURN 
8$: ‘BYTE 0 = =STORAGE FOR ASCII DIGIT 
"BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 0 “:OCTAL DIGIT COUNTER 
SOFILL: .BYTE 0 *: ZERO FILL SWITCH 
SOMODE: .WORD 0 : :NUMBER OF DIGITS TO TYPE 
"SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
5 fA AR EAE E RARER ERE EER AAAAEAAAARARAARRERAERARRRREERRA RR ES 
“THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
<#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
«NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
“ «BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
; *REPLACED WITH SPACES. 
** : 
:* MOV NUM, -(SP) ::PUT THE BINARY NUMBER ON THE STACK 
:* TYPDS "GO TO THE ROUTINE 
STYPDS: 
MOV RO,-(SP) :;PUSH RO ON STACK 
MOV R1,-(SP) :=PUSH R1 ON STACK 
MOV R2.-(SP) = =PUSH R2 ON STACK 
MOV R3.-(SP) ::PUSH R3 ON STACK 
MOV R5.-(SP) = =PUSH RS ON STACK 
020200 MOV #20200,-(SP) : SET BLANK SWITCH AND SIGN 
000020 MOV 20(SP) .R5 > GET THE INPUT NUMBER 
BPL 1$ BR IF INPUT IS POS. 
NEG R5 : “MAKE THE BINARY NUMBER POS. 
000055 000001 MOVB 3s # "=, 1 (SP) *=MAKE THE ASCII NUMBER NEG. 
1$: CLR R =: ZERO THE CONSTANTS INDEX 
014532 MOV #$DBLK ,R3 ::SETUP THE OUTPUT POINTER 
000040 MOVB = "sw (R35) + -=SET THE FIRST CHARACTER TO A BLANK 
2$: CLR R CLEAR THE BCD NUMBER 
014522 MOV $DTBL(RO),R1 ::GET THE CONSTANT 
3$: SUB R1,R5 FORM THIS BCD DIGIT 
BLT 4$ *:BR IF DONE 
INC Re *: INCREASE THE BCD DIGIT BY 1 
4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
TST R2 *=CHECK IF BCD DIGIT=0 
BNE 5$ *:FALL THROUGH IF 0 
STB. —_—«d(SP*) ==STILL DOING LEADING 0°S? 
BM! 7$ ie IF YES 
5$: ASLB (SP) : =MSD? 
BCC *:BR IF NO 
000001 177777 MOVB 1(SP).-1(R3) ::YES=-SET THE SIGN 
000060 6S: BIS #'0,R2 “MAKE THE BCD DIGIT ASCI 
000040 7$: BIS #* R2 "MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MOVB _R2, (R3)+ <:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO) + = JUST INCREMENT ING 
000010 CMP RO, #10 = "CHECK THE TABLE INDEX 
BLT *:G0 DO THE NEXT DIGIT 


** H 
BR $ 7:60 CHAN 
:zWAS THE LSD THE FIRST NON-ZERO? 
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20-OCT-81 16:08 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
+788 10000 BPL 9$ ::BR IF NO 
4462 116663 177777 177776 MOVB -1(SP),-2(R3)  ::YES=-SET THE SIGN FOR TYPING 
4470 105013 9$: CLRB —s.- (R33) ::SET THE TERMINATOR 
4472 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
4474 012603 MOV (SP) +,R3 >:POP STACK INTO R3 
4476 012602 MOV (SP)+.R2 *:POP STACK INTO R2 
4500 012601 MOV (SP)+_R1 ::POP STACK INTO R1 
4502 012600 MOV (SP) +,RO ==POP STACK INTO RO 
4504 104401 014532 TYPE $DBLK = =NOW TYPE THE 
4510 016666 000002 000004 MOV 5(SP) 4 (SP) *:ADJUST THE STACK 
1256 o55005 RTI — RETURN TO USER 
1355 eaters $DTBL: 10000. 
4524 001750 1000. 
4526 000144 100. 
4530 000012 10. 
4532 000004 S$DBLK: .BLKW 4 
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164266 
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000007 
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015277 
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éCKSUR: CMP #SWREG, SWR 
BNE 1 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


.SBTTL TTY INPUT ROUTINE 


, 2 REAR EEE EEE EEE EEEEREE 


“ENABL LSB 


POUT TTTTTTTITTLI LLL LLL LLL LLL, 
; #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:* SERVICE THE TEST FOR a ole SOFTWARE SWITCH REGISTER TRAP CALL 


OPERATING IN TTY FLAG E. 
e215 THE [ro SELECTED? 


54 “BRANCH 
TSTB = @STKS 27 CHAR THERE? 
BPL 15$ =: TF NO, DON'T WAIT AROUND 
MOVB a$TKB,~-(SP) * SAVE THE CHAR 
BIC aci7e. (SP) : = STRIP=OFF THE ASCII 
CMP #7, (SP) +:7S IT A CONTR oL G? 
BNE 15$ >:NO, RETURN 
CMPB = $AUTOB,#1 :ARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ > :BRANCH IF Y 
TYPE .$SCNTLG ; ECHO THE CONTROL-G (*G) 
$GTSWR: TYPE  SMSWR >: TYPE CURRENT CONTENTS 
MOV SWREG,- (SP) ;3SAVE SWREG FOR TYPEOUT 
TYPOC “GO TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE  SMNEW «PROMPT FOR NEW SWR 
19$: CLR -(SP) >:CLEAR COUNTER 
CLR -(SP) :;; THE NEW S 
7$: TSTB a$TKS *=CHAR THERE? 
BPL 7$ ::]F NOT TRY AGAIN 
MOVB  a$TKB,-(SP) ::PICK UP CHAR 
BIC #°C177, (SP) “=MAKE IT 7-BIT ASCII 
9$: CMP (SP) #25 :71S IT A CONTROL-U? 
E 10$ CH IF NOT 
TYPE L$CNTLU :SYES ECHO CONTROL-U (“U) 
20$: ADD SP GNORE _P PREVIOUS INPUT 
BR 19$ “:LET'S TRY IT AGAIN 
10$: CMP (SP) 415 e315 IT A <CR>? 
BNE 16$ “BRANCH IF NO 
TST 4(SP) 33 YES, IS IT THE FIRST CHAR? 
BEQ 11$ i CH IF YES 
MOV 2(SP) ,@SWR =: SAVE NEW SWR 
11$: ADD #6,SP :3CLEAR UP STA Ke 
14$: TYPE $CRLF “ECHO <CR> 
CMPB =: $INTAG,, #1 : RE CENABLE TTY ce INTERRUPTS? 
BNE 15 CH IF NOT 
MOV #100, a$TKS =RE-ENABLE TTY KBD INTERRUPTS 
15$: RTI * = RETURN 
16$: JSR PC, $TYPEC «ECHO CHAR 


| 
| 
| 


v 


QOCSSOCOOOOOOoOoOo 


li ett i i ee 


en ee Ee ee ee ee ee ee eae 
MMII MA iV) 
VN ww ~~ 
en AONE AS 


ee ee ee ee ae a et a a a a a ee a ee ee ee a ee et ee ee et et ee eee er 


DOOOSCOCSOOCSOOSOOOOOOOOOCOOOO 
Wwron = 
ENRNANORS 


ce cee eel ee ee ee ee ee ee ee ee ee ee ee ee ee eed ed ed ee eed 
MUMAIMA AMAA VV) 
eS ee ee SL 


Wis & 
M&M 


ee ee ee ee ee ee ee a a a et et ee ee ee ee ee eee 2 a) 
ee ne ee eee 


—s 





— oe eee —— LL Lt ttt. et ttt CLL LL LL LL LOL LLL LLL LL ——- 


I 6 
SLU LTC REPR DIAG DNMAC K24.07-563 O2-FEB-82 16:42 PAGE 17-1 
20-OCT-81 16:08 TTY INPUT ROUTINE SEQ 0073 

pcre 7 000060 CMP (SP) , #60 >;CHAR < 0? 

2420 BLT 18$ > :BRANCH IF YES 
be 16 7 000067 CMP (SP) ,#67 ::CHAR > 7? 

39)? BGT 18$ > BRANCH IF YES 
Ose 26 000060 BIC #60, (SP)+ rrSTRIP-OFF ASCII 
005766 000002 TST 2(SP) :;1S THIS THE FIRST CHAR 
001403 BEQ 17$ >: ;BRANCH IF YES 
006316 ASL (SP) ::NO, SHIFT PRESENT 
006316 ASL (SP) 3 TO MAKE 
006316 ASL (SP) 33 ROOM FOR NEW ONE. 
005266 000002 17$: INC 2(SP) ::KEEP COUNT OF CHAR 
056616 177776 BIS -2(SP), (SP) ::SET IN NEW CHAR 
000707 BR 7$ ::GET THE NEXT ONE 
104401 001074 188: TYPE SQUES >; TYPE 2?<CR><LF> 
000720 BR 20$ = SIMULATE CONTROL-U 

-DSABL LSB 


REE REE KEE EEEREKEEEEKEEEEEREEEEEEREEEE 


“THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


> *CALL 
:* RDCHR +: INPUT A SINGLE CHARACTER FROM THE TTY 
ie RETURN HERE = CHARACTER IS ON THE STACK 
:* “WITH PARITY BIT STRIPPED OFF 
011646 SRDCHR: MOV (SP) ,-(SP) ::PUSH DOWN THE PC 
016666 000004 000002 MOV 4(SP) ,2(SP) >: SAVE THE PS 
105777 164004 1$: TSTB = aS TKS *:WAIT FOR 
100375 BPL +A CHARACTER 
117766 164000 000004 MOVB a$TKB,4(SP) = =READ THE TTY 
042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
026627 000004 000023 CMP 4 (SP) ,#23 -:1§ IT A CONTROL-S? 
001013 BNE 3 > =BRANCH IF NO 
105777 163752 2$: TSTB = aS TKS ;:WAIT FOR A CHARACTER 
100375 BPL ‘ >:LOOP UNTIL ITS THERE 
117746 163746 MOVB  a$TKB,-(SP) = :GET CHARACTER 
042716 177600 BIC #*C177, (SP) ::MAKE IT 7-BIT ASCII 
022627 000021 CMP (SP) +,#21 -:1S IT A CONTROL-Q? 
001 366 BNE 2$ ::]F NOT DISCARD IT 
000750 BR 1$ =: YES, RESUME 
026627 000004 000021 3S: CMP 4(SP) ,#$XON -:7S IT A RANDOM XON? :RANOO1 
001744 BEQ 1$ > :BRANCH IF YES >RANOO1 
026627 000004 000140 CMP 4(SP) ,#140 *:1$ IT UPPER CASE? 
002407 BLT 4$ ::BRANCH IF YES 
026607 000004 000175 CMP 4(SP),#175 =:1§ IT A SPECIAL CHAR? 
003003 BGT 3 H IF YES 
042766 000040 000004 BIC #40,4(SP) ::MAKE IT UPPER CASE 
000002 4$: RTI *:60 BACK TO USER 
5 RRRERAAAERAER AEE EEE REAR RAE ARERR ERE RE RARER ERA E RARE ARES 
: THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
*“* ° 
:* RDLIN :: INPUT A STRING FROM THE TTY 
:* RETURN HERE : “ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
i* : TERMINATOR WILL BE A BYTE OF ALL O° 


’ 
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CJKDIAO 11 
CJKDIA.P11 20-OCT-81 16:08 TTY INPUT ROUTIN SEQ 0074 
(1) 015154 01034 SRDLIN: MOV R3,-(SP) ::SAVE R3 
(1) 015156 O12 0 015262 1$: MOV #STTYIN,R3 *:GET ADDRESS 
(1) 015162 02 703 01527 2$: CMP #STTYIN+8.,R3  :: BUFFER FULL? 
(1) 015166 101405 BLOS 4$ “:BR IF YES 
(1) 015170 10441 RDCHR *:GO READ ONE CHARACTER FROM THE TTY 
(1) 015172 11 61 MOVB (SP) +, (R3) = :GET CHARACTER 
(1) 015174 122713 000177 10$: CMPB «#177, (R3) =:1$ IT A RUBOUT 
(1) 015200 001003 BNE «SKIP IF NOT 
(1) 015202 104401 001074 4$: TYPE $QUES “= TYPE A ‘2° 
(1) 015 000763 BR ::CLEAR THE BUFFER AND LOOP 
(1) 015210 111337 015260 3$: MOVB _ (R3),9$ = :ECHO THE CHARACTER 
(1) 015214 104401 015260 TYPE =, 
(1) 015220 122723 000015 CMPB 3s #15, (R3)+ ::CHECK FOR RETURN 
(1) 015224 001356 BNE -:LOOP IF NOT RETURN 
(1) 015226 105063 177777 CLRB  -_- = 1 (R3) *=CLEAR RETURN (THE 15) 
(1) 0152 2 104401 001076 TYPE ,$LF >: TYPE A LINE FEED 
(1) 015236 012603 MOV (SP)+,R3 > :RESTORE R3 
(1) 015240 011646 MOV (SP) .-(SP) : “ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 015242 016666 000004 000002 MOV 4(SP),2(SP) * FIRST ASCII CHARACTER ON IT 
(1) 015250 012766 015262 000004 MOV #STTYIN,4(SP) 
(1) 015256 000002 RTI ‘ : :RETURN 
(1) 015260 000 9$: .BYTE 0 STORAGE FOR ASCII CHAR. TO TYPE 
(1) 015261 000 “BYTE 0 i NATOR 
(1) 015262 000010 S$TTYIN: .BLKB 8. :}RESERVE 8 BYTES FOR TTY INPUT 
(1) 015272 052536 005015 000 $CNTLU: :ASCIZ /4U/<15><12> = ; CONTROL ‘U"' 
(1) 015277 136 006307 000012 $CNTLG: .ASCIZ /*G/<15><12> ;;CONTROL ‘'G 
(1) 015 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = / 
(1) 015312 020075 000 
(1) 015315 040 047040 053505 SMNEW: .ASCIZ / NEW = / 
(1) 015322 036440 000040 
2688 
| 
| 
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CJKDIA.P11 20-OCT-81 16:08 TTY INPUT ROUTINE SEQ 0075 
2690 
2691 
2692 _SBITL TRAP DECODER 
(2) SRA E AEE ERER ARERR ER ERERERERE ERE EERE 
(1) “*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
(1) “AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(1) “#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
(1) **#GO TO THAT ROUTINE. 
(1) 012348 010046 STRAP: MOV RO,-(SP) 7; SAVE RO 
(1) 015330 016600 000002 MOV 2(SP) ,RO *:GET TRAP ADDRESS 
(1) 015334 005740 TST -(RQ) 38 BY 2 
(1) 015336 111000 MOVB (RO) RO *:GET RIGHT BYTE OF TRAP 
(1) 015340 006300 ASL R = :POSITION FOR INDEXING 
(1) 015342 016000 015362 MOV $TRPAD(RO),RO  ;; INDEX TO TABLE 
(1) 015346 000200 RTS RO >:GO TO ROUTINE 
(1) 
ts ::THIS IS USE TO HANDLE THE *"“GETPRI'’ MACRO 
(1) 015350 011646 $STRAP2: MOV (SP) ,-(SP) ::;MOVE THE PC DOWN 
(1) 015352 016666 000004 000002 MOV 4(SP) ,2(SP) 7z;MOVE THE PSW DOWN 
(1) 015360 000002 RTI > RESTORE THE PSW 
a: .SBTTL TRAP TABLE 
(3) :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(3) “*BY THE ‘TRAP’ INSTRUCTION. 
(? : ROUTINE 
(3) 015362 015350 $TRPAD: .WORD $TRAP2 
(3) 015364 013534 $TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
(3) 015366 014114 $iYPOC <::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 015370 014070 $TYPOS <::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 015372 014130 STYPON <=:CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 015374 014316 S$TYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
(3) 015376 014612 $GTSWR ::CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
(3) 015400 014542 SCKSWR =::CALL=CKSWR | TRAP+7(104407) TEST FOR CHANGE IN SOFT~SWR 
(3) 015402 015024 SRDCHR =:CALL=RDCHR | TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
oiah 015404 015154 SRDLIN <=:CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
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_ CIKDIAO 11/238 SLU .Te REPR DIAG 


—CJKDIA.P11 20-0CT-81 16:08 SEQ 0076 


-SBTTL ECHO TEST 


696 pouneenssoasatemmenseeneesesauatowetezsbesesetoossssennnansesee 


697 -*THIS ROUTINE WILL ECHO ANY CHARACTER TYPED 
698 “#ON EITHER SLU1 OR SLU2. DEFAULT IS TO THE CONSOLE DEVICE SLU1. 
699 “THE TEST 1S HALTED BY TYPING A CONTROL-C 
2700 -eTEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING 
2701 gage agement a pn ap 
702 015406 012737 000176 001040 ECHO: MOV #SWR :SET UP FOR SOF TWARE SWITCH REGISTER 
703 015414 012737 000174 001042 MOV TD TSPREG DISPLAY “AND DISPLAY REGISTER 
5704 015422 032777 000020 163410 BIT #BIT4, a@SWR i CHECK IF BIT4 SET IN SWITCH REG 
2705 015430 001403 BEQ 1 *]F NOT THEN SELECT SLU1 
2706 015432 012703 002750 MOV #RCSR, R3 “IF BIT4 SET THEN SELECT SLU2 
2707 015436 02 BR 
708 015440 012703 002760 1$: MOV ACRCSR, R3 sSELECT SLU1 (THIS IS DEFAULT DEVICE) 
709 015444 ‘ 2$: RESET : CLEAR EVERYTHI NG 
5710 015446 112773 000052 000006 MOVB #'*.@6(R3) ; TRANSMIT PROMPT ‘'s 
3711 015454 105773 000000 3$: TSTB =—s-_ A(R’) “WAIT FOR INPUT 
erie 015460 100375 BPL $ 
9713 015462 117373 000002 000006 MOVB a2(R3),a@6(R3)  ;ECHO INPUT 
2714 015470 017300 000002 MOV @2(R3) RO ;STORE INPUT 
2715 015474 100023 BPL 6$ “BR IF ‘ERROR'NOT SET 
2716 015476 052701 010000 BIS #B1T12,R1 “SET PARITY ERROR TEST MASK 
2717 015502 030100 BIT R1,RO “CHECK FOR PARITY ERROR FLAG 
2718 015504 001403 BEQ 4 *BR IF NOT SET 
2719 015506 004737 015570 JSR PC,MSG “REPORT PARITY ERROR 
2720 015512 015616 MP ie 
2721 015514 006301 4$: ASL R1 :SHIFT MASK TO TEST “'FR’’ FLAG 
2722 015516 030100 BIT R1,RO “TEST FOR FRAMING ERROR FLAG 
2723 015520 001403 BEQ “BR IF NOT SET 
2724 015522 004737 015570 JSR PC.MSG “REPSORT FRAMING ERROR 
2725 015526 015627 MFR sey 
9726 015530 006301 5$: ASL R1 ;SHIFT MASK TO TEST DR” FLAG 
2727 015532 030100 BIT R1,RO “TEST FOR OVERFLOW ERR 
2728 015534 001403 BEQ 6 F NOT SET 
2729 015536 004737 015570 JSR PC,MSG “REPORT OVERFLOW ERROR 
2730 015542 015641 MOR 
2731 015544 042700 000200 6S: BIC #B1T7,RO : CLEAR ANY PARITY BIT 
2732 015550 022700 000003 CMP #3,R0 WAS INPUT CONTROL-C 
2733 «015554 001337 BNE IF IS NOT 
2734 015556 737 (015570 JSR PC MSG “REPORT PROGRAM STOP 
2735 015562 015654 MSTOP 
3736 015564 00000 HALT :END OF TEST HALT 
2737 015566 000707 BR ECHO “AFTER END OF TEST HA 
3738 : PRESS CONTINUE 10” RESTART ECHO TEST 
3740 015570 013600 MSG: MOV a(SP)+,RO :PICK UP MESSAGE POINTER 
2741 015572 062746 000002 ADD #2,-(SP) :ADJUST RETURN P 
2742 015576 105773 000004 WAIT:  TSTB a4 (R5) WAIT FOR XMIT DONE 
2743 015602 100375 BPL 
3744 015604 112073 000006 MOVB WA) +,a6(R3) :SEND CHARACTER 
2745 015610 105710 TSTB ~—_—« (RO) "1S THIS END OF MESSAGE? 
2746 015612 001371 BNE WAIT :BR IF NOT 
gar 015614 000207 RTS PC “RETURN 
5749 015616 005015 040520 044522 MPAR: .ASCIZ <CR><LF>/PARITY/ 
015624 054524 000 





M 
_CUKDIAO 11/238 SLU +t REPR DIAG DNMAC X24.07-563 O2-FEB-82 16:42 PAGE 19-1 
CJKDIA.P11 20-OCT-81 16:08 ECHO TEST SEQ 0077 


2750 01 26¢7 15 Oo ae) 2 040522 MFR: ASCIZ <CR><LF>/FRAMING/ 
0156 044515 04 as 

2751 015641 015 047412 04 $8 MOR : .ASCIZ <CR><LF>/OVERFLOW/ 
015646 043122 047514 127 

2752 4: $023 sete 052123 050117 MSTOP: .ASCIZ <CR><LF>/STOP/ 


eee ee << es -_- ee ———— eee —— — — 
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CJKDIA.P11 20-OCT-81 16:08 ECHO TEST SEG 0078 
2754 
2755 
2736 015664 EVEN 
2738 _SBTTL TERMINAL OUTPUT TEST 
760 SRR REE REE EERE EAE EEA ARR RE REE AREER ERE RARER ERS 
761 :*THIS ROUTINE WILL OUTPUT ALL WRITABLE CHARACTERS FOR THE 
276 ; * THE OCTAL CODE 040 - 
276 #32 CHARACTERS ARE PRIN TED ON EACH LINE 
2764 ; * THE PATTERN IS REPEATED EVERY THREE LINES 
2766 ss catsinneniei diated eonTereeteNtes 
2767 
3768 015664 012737 000176 001040 OUTTST: MOV #SWREG, SWR :SET UP FOR SOFTWARE SWITCH REGISTER 
9769 015672 012737 000174 001042 MOV #DISPREG, DISPLAY “AND DISPLAY REGISTER 
9770 015700 032777 000020 163132 BIT #BIT4, aSwWR “CHECK IF BIT4 SET IN SWITCH REG 
771 015706 001403 BEQ 1$ “JF NOT THEN SELECT SLU1 
772 015710 012703 002750 MOV #RCSR, R3 “IF BIT4 SET THEN SELECT SLU2 
773 015714 000402 BR 
774 015716 012703 002760 1$: MOV ACRCSR, R3 :SELECT SLU1 (THIS IS DEFAULT DEVICE) 
775 015722 5 2$: RESET :CLEAR THE WORLD 
3776 015724 012701 000040 3$: MOV #40,R1 “LOAD FIRST WRITABLE CHARACTER 
2777 015730 012700 000040 L$: MOV #40.RO ‘LOAD CHAR COUNT PER LINE 
2778 015734 105773 000004 5$: TSTB = @4(R3) “WAIT FOR DONE 
9779 015740 100375 BPL 5$ 
2780 015742 010173 000006 MOV R1,a6(R3) : TRANSMIT A CHARACTER 
9781 015746 105201 INCB RT * INCREMENT CHARACTER CODE 
9782 015750 005300 DEC RO ; DECREMENT CHAR COUNT 
2783 015752 001370 BNE 5$ “BR IF LINE NOT COMPLETE 
3784 015754 004737 015570 JSR PC,MSG >SSUE CR,LINE FEED 
3786 015760 001075 SCRLF 
2787 015762 105773 000000 TSTB =—_ @(R3) :ANY CHARACTER RECEIVED? 
2788 015766 100404 BMI “BR IF Y 
2789 015770 032701 000200 BIT #B1T7,R1 “FINISHED ONE PASS OF WRITABLE CHARACTERS? 
5790 015774 001353 BNE 3$ “BR IF Y 
e731 015776 000754 BR 4$ ‘JF NOT WRITE NEXT LINE 
2793 016000 005073 000002 6$: CLR a2(R3) :CLEAR RECEIVER 
2794 016004 000000 HALT “STOP TEST 
2795 016006 000726 BR OUTTST “RESTART TEST IF CONTINUED 
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-ASCIZ /SLU1 TCSR DONE NOT SET WITH RESET/ 


-ASCIZ /SLU1 RCSR DID NOT RETURN SSYNC/ 


-ASC1Z /SLU1 RBUF DID NOT RETURN SSYNC/ 


-ASCIZ /CAN NOT SET BIT2 OF SLUT TCSR/ 


-ASCIZ /RESET DID NOT CLEAR BIT2 OF SLU1 TCSR/ 


-ASCIZ /BIT6 OF SLU1 TCSR NOT CLEAR AFTER RESET/ 


-ASCIZ /SLU1 XMIT INTERRUPTED WITH PRIORITY 7/ 


.ASCIZ /CAN NOT SET BIT6 OF SLUT TCSR/ 


-ASCIZ /CAN NOT CLEAR BIT6 OF SLUT TCSR/ 
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-ASCIZ /RESET DID NOT CLEAR BIT6 OF SLUT TCSR/ 
-ASCIZ /BIT6 OF SLU1 RCSR NOT CLEAR AFTER RESET/ 
-ASCIZ /SLU1 RCVR INTERRUPT WITH PRIORITY 7/ 

-ASCIZ /CAN NOT SET BIT6 OF SLUT RCSR/ 

-ASCIZ /CAN NOT CLEAR BIT6 OF SLU1 RCSR/ 

-ASCIZ /CAN NOT CLEAR BIT6 OF SLUT RCSR WITH RESET/ 
-ASCIZ /SLU1 RECEIVER DONE NEVER SET/ 

-ASCIZ /RESET DID NOT CLEAR SLU1 RCVR DONE/ 

-ASCIZ /READING SLU1 RBUF DID NOT CLEAR RCVR DONE/ 
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-ASCIZ /SLU2 TCSR DONE NOT CLEARED WITH TBUF FULL/ 


.ASCIZ /SLU2 TCSR DONE NOT SET AFTER TRANSMIT/ 
-ASCIZ /BITO OF SLU2 TCSR NOT CLEAR AFTER RESET/ 


-ASCIZ /SLU2 TCSR DID NOT KETURN SSYNC/ 
eASCIZ /SLU2 TBUF DID NOT RETURN SSYNC/ 
eASCIZ /SLU2 TCSR DONE NOT SET WITH RESET/ 
-ASCIZ /SLU2 RCSR DID NOT RETURN SSYNC/ 
.ASCIZ /SLU2 RBUF DID NOT RETURN SSYNC/ 


-ASCIZ /CAN NOT SET BITO OF SLU2 TCSR/ 
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0176 052117 051440 0310? 
0176 Bs 1088 052111 Og 
017644 04311 051440 052514 
EAE 020062 041524 051123 
2826 017661 103 047101 047040 EM42: .ASC1Z /CAN NOT CLEAR BITO OF SLU2 TCSR/ 
017666 052117 041440 042514 
017674 051101 041040 052111 
017 F penoe? 043117 051440 
01771 052514 020062 041524 
017716 051123 000 
2827 017721 M6 051505 052105 EM43: -ASCIZ /RESET DID NOT CLEAR BITO OF SLU2 TCSR/ 
017726 042040 042111 047040 
0177 052117 041440 042514 
017742 051101 041040 052111 
017750 020000 043117 051440 
017756 052514 020062 041524 
017764 051123 000 
2828 017767 196 052111 020066 EM44: .ASCIZ /BIT6 OF SLU2 TCSR NOT CLEAR AFTER RESET/ 
017774 04311 051440 052514 
0002 020062 041524 051123 
020010 047040 052117 041440 
020016 042514 051101 040440 
020024 052106 051105 051040 
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eASCIZ /CAN NOT CLEAR BIT? OF LKS/ 

-ASCIZ /SLU1 XMIT INTERRUPTS WHEN DISABLED/ 
-ASCIZ /SLU1 XMIT DID NOT iINTERRUPT/ 
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-ASCIZ /BIT7 OF LKS DOES NOT SET/ 
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-ASCIZ /LOADING SLU1 TBUF DID NOT CLEAR INTERRUPT/ 

-ASCIZ /SLU1 RCVR INTERRUPTS WITH ENABLE CLEAR/ 

-ASCIZ /SLU1 RCVR INTERRUPTS AT PRIORITY 7/ 

-ASCIZ /SLU1 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 


-ASCIZ /SLU1 RCVR DID NOT INTERRUPT/ 
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-ASCIZ /SLU1 READING RBUF DID NOT CLEAR INTERRUPT/ 
-ASCIZ /RESET DID NOT CLEAR SLU1 RCVR INTERRUPT/ 


-ASCIZ /SLU1 ‘ERROR’ NOT SET WITH ‘OR" FLAG/ 
eASCIZ /SLU2 XMIT INTERRUPTS WHEN DISABLED/ 


-ASCIZ /SLU1 RCVR DID NOT INTERRUPT/ 
-ASCIZ /SLU1 RECEIVER RE-INTERRUPTED/ 


ASCIZ /SLU1 "OR® FLAG DID NOT SET/ 
-ASCIZ /SLU2 XMIT DID NOT INTERRUPT/ 
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-ASCIZ /SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 


-ASCIZ /SLU2 XMIT INTERRUPTS WITH ENABLE CLEAR/ 
-ASCIZ /LOADING SLU2 TBUF DID NOT CLEAR INTERRUPT/ 
-ASCIZ /SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR/ 
-ASCIZ /SLU2 RCVR INTERRUPTS AT PRIORITY 7/ 


-ASCIZ /SLU2 XMIT DID NOT INTERRUPT/ 
eASCIZ /SLU2 XMIT RE-INTERRUPTED/ 
eASCIZ /SLU2 RCVR DID NOT INTERRUPT/ 
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-ASCIZ /SLU2 READING RBUF DID NOT CLEAR INTERRUPT/ 
-ASCIZ /RESET DID NOT CLEAR SLU2 RCVR INTERRUPT/ 


eASCIZ /SLU2 RCVR DID NOT INTERRUPT/ 

eASCIZ /SLU2 RECEIVER RE-INTERRUPTED/ 

ASCIZ /SLU2 "OR FLAG DID NOT SET/ 

eASCIZ /SLU2 ‘ERROR' NOT SET WITH ‘OR" FLAG/ 
-ASCIZ /SLU2 BREAK DID NOT TRANSMIT ALL ZEROES/ 
-ASCIZ /BREAK DID NOT SET FRAMING ERROR/ 

-ASCIZ /SLU2 ‘ERROR' NOT SET WITH ‘FR* FLAG/ 
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“CJKDIAO 11/238 SLU LT¢ 
| CAKDIA.PI1 20-OCT-81 16:08 TERMINAL OUTPUT 
2926 0 $552 001104 001016 002756 DT32: .WORD S$TESTN,SERRPC,TBUF,O 
| 2927 0 3362 001104 001016 002750 D136: .WORD S$TESTN,SERRPC,RCSR,0 
0255 reise ag 
2928 0 357 1104 001016 002752 DT37: .WORD $TESTN,SERRPC,RBUF ,0 
2929 0 360 001104 001016 002770 DT61: .WORD S$TESTN,SERRPC,LKS,0 
2930 025612 001104 001016 001020 D172: .WORD $TESTN,SERRPC,$GDADR,S$BDADR,$GDDAT .$BDDAT .0 
0 2620 1022 001024 001026 
2931 0256 001104 001016 002760 91115: .WORD S$TESTN,SERRPC,CRCSR,SGDDAT,S$BDDAT.0 
025636 001024 001026 
2932 025644 001104 001016 002750 01137: .WORD $TESTN,S$ERRPC,RCSR,$BDDAT 0 
025652 001026 000000 
2933 025656 001104 001016 001024 DT142: .WORD $TESTN,SERRPC,S$GDDAT,SBDDAT,0 
0 3664 001026 000000 
2934 025670 001104 001016 002750 DT157: .WORD $TESTN,SERRPC,RCSR,XMTCT2,RECCT2,0 
025676 012232 012234 000000 
2935 025704 001104 001016 002750 DT161: .WORD $TESTN,SERRPC.RCSR,OLDPC ,BDVECT,0 
025712 012414 012416 000000 
2936 025720 900200 BUF1: .BLKW 200 :SLU1 INPUT BUFFER FOR BLAST TEST 
2937 026320 900200 BUF 2: -BLKW 200 “SLU2 INPIT BUFFER FOR BLAST TEST 
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JKDIAO 11/238 SiU LTC REPR DIAG DNMAC X24.07-563 O2-FEB-82 16:42 PAGE 22 
JKDIA.P11 20-OCT-81 16:08 SYMBOL TABLE SEQ 0095 
ABASE = 176590 BITO = 000001 DH161 025425 EM131 023320 EMS 016010 
ACDW1 = 000000 BITO0O = 000001 DH32 025030 EM13 O6734 EM50 oeeses 
ACDW2 = 000000 B1T01 = 000002 DH5 024731 EM13 023411 EM51 0 3631 
ACPUOP= 000000 ot ite = 000004 DH6 024756 EM134 0 se9e EMS 020321 
ADDWO = 000000 BIT03 = 000010 DH61 025055 EM135 023533 EMS 060753 
ADDW1 = 000000 BIT04 = 000020 DH7 025003 EM136 023566 EM5S4 020423 
DW10= 000000 BITOS = 0 DH72 025101 EM13/ 023632 EM55 ities 
ADDW11= 000000 BITO06 = 000100 DISPLA 001042 M14 016254 EM56 0205 
poll 000000 BITO7 = 200 DISPRE 000174 EM140 023701 EMS7 020573 
ADDW15= 000000 BITO8 = 400 DSWR_ = 177570 EM141 023741 EM6 016052 
ADDW14= 000000 BITO9 = 001000 DT115 025630 EM142 024005 EM60 020636 
ADDW15= 000000 BIT] = 02 DT137 §©=©025644 EM143 024043 EM61 020710 
ADDW2 = 000000 BIT10 = 000 DT142 025656 EM144 024077 EM62 020741 
ADDW3 = 000000 BIT11 = 004000 DT157 025670 EM145 024134 EM63 021003 
ADDW4 = 000000 BIT12 = 000 DT161 025704 EM146 =. 0024170 EM64 021041 
ADDWS = 000000 BIT13 = 020000 DT31 025542 EM147 36024224 EM65 021071 
ADDW6 = 000000 BIT14 = 000 DT32 025552 EM15 016324 EM66 021123 
ADDW7 = 000000 B1T15 = 100000 DT36 025562 EM150 024251 EM67 021163 
ADDW8 = 000000 BIT2 = 000004 D137 025572 EM151 024313 EM? 016111 
ADDWI = 000000 BITS = 000010 DT5 025512 EM152 024370 EM70 021223 
ADEVCT= 000000 BIT4 = 000020 DT6 025522 EM153 024422 EM71 021255 
ADEVM = 000000 BITS = 000040 DT61 025602 EM154 024455 EM72 021306 
= BIT6 = 000100 DT? 025532 EM155 024510 EM74 021367 
= BIT? = 000200 DT72 025612 EM156 024545 EM75 021432 
AFATAL= 000000 BIT8 = 000400 ECHO 015406 EM157 024612 EM76 021466 
5 0 IT9 = 001000 EMTVEC= 000030 16 016372 EM77 021530 
: BLAST 011474 EM10 021577 EM160 024647 ERRVEC= 000004 
= BPT = 000003 EM101 021633 EM161 024714 FINIE 012170 
= BPTVEC= 000014 EM102 021664 EM17 016430 GTSWR = 06 
AMAMS1= 000000 BUF 1 025720 EM103 021736 EM20 016470 HT = 11 
S2= BUF 2 026320 EM104 022005 EM21 016536 ID 
AMAMS3= 000000 CATCH 0123570 EM105 022041 EM22 016606 12036 
AMAMS4= 000000 CHECK2 012120 EM106 022104 EM23 016652 IOTVEC= 
= CKSWR = 104407 EM107 022165 EM24 016710 LF = 2 
AMSGLG= 000000 CONT41 010546 016150 EM25 016750 LKS 002770 
AMSGTY= 000000 COUN 012236 EM110 022221 EM26 017023 LTCIT 010762 
AMTYP1= 000000 CR = 000015 EM111 022256 EM27 017060 LTCRT 00562 
AMTYP2= 000000 CRBUF 002762 EM112 022330 EM30 017123 MFR 015627 
AMTYP5= 000000 CRCSR 002760 EM113 022400 EM31 017175 015641 
AMTYP4= 000000 CRLF = 000200 EM114 022433 EM32 017234 MPAR 015616 
SS_= 000000 CRPSW 003004 EM115 022477 EM33 017273 MSG 015570 
IOR= 000000 CRVECT 003002 EM116 Oesece EM34 017345 MSTOP 015654 
APTCSU= 000040 CTBUF 002766 EM117 022565 EM35 017413 M1 025476 
= 000001 CTCSR 002764 EM120 022621 EM36 017455 M2 025510 
APTSIZ= 000200 CTPSW 003010 EM121 022663 EM37 017514 OLDPC 012414 
APTSPQ= 000100 CTVECT 003006 EMi22 9022732 EM40 017553 OUTTST 015664 
ASWREG= DADTBL 0 EM123 022766 EM41 017623 PIRQ = 177772 
ATESTN= 000000 DDISP = 177570 EM124 023017 EM4 017661 PIRQVE= 000240 
IT = DH115 5157 EM125 023071 EM4 017721 PRO = 000000 
SWR = DH137 025225 EM126 =©023140 EM44 017767 PR1 = 000040 
AVECT1= 000300 DH142 =©025260 EM127 = 023174 EM45 020037 PR2 = 000100 
AVECT2= 000000 DH152 §=025314 EM13 016206 EM46 020105 PRS = 000140 
BDVECT 012416 DH155 025361 EM130 025237 EM47 020143 PR4 = 000200 
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CJKDIA.P11 20-OCT-81 16:08 SYMBOL T SEG 0094 
PRS = oO ec8 TBITVE= 000014 TVECT 002776 SESCAP 001072 SRDCHR 015024 
PR6 = 000 BLEND is 5A TYPDS = 104405 SETABL 001120 SRDOLIN 015154 
PR7 = be TBUF 002756 TYPE = 104401 ETEND 001160 $RDSZ = 10 
PS = 177776 TCSR 002754 TYPOC = 104402 SFATAL got 18s $RT 012334 
PSW == 177776 TICKER 011716 TYPON = 104404 SFFLG 013532 SSAVR6 013102 
PWRVEC= ¢6 TKVEC = TYPOS = 104403 SFILLC 001056 $SC 013114 
RBUF 2752 TPSW 003000 UNIQUE 006100 SFILLS 001055 $SETUP= EL 
RCSR 002750 TPVEC = 4 IT 015576 $GDADR 001020 $STUP = 177777 
= 104410 VE= 000034 WAITER 012074 S$GDDAT eg ce $SVLAD 013216 
RDLIN = 104411 TRIVEC= 000014 WAITIO 011712 $GET42 012312 $SvPC = 000500 
RECCT2 012234 TST1 0034 WDONE 005514 SGTSWR 014612 $SWR = 161000 
011762 TST10 004236 WRPSW 012556 SHD = 000003 SSWREG 001122 
RESVEC= 000010 TST11 004402 XMIT2. 011726 $SHIBTS 000500 SSWRMK= 000000 
$hie TST12 004456 XMTCT2 012232 SICNT 001004 STESTN 001104 
RTCPSW 005014 TST13. 00451 XXX 011110 SILLUP 013076 TKB 001046 
RTCVT 003035 TST14 004610 $APTHD 000500 SINTAG 001035 $TKS - 001044 
RVECT 00277 TST15 004670 SATYC 013312 SITE 00101 $T 001060 
R =%000006 TST16 004730 SATY1 013266 $LF 001076 STMP1 001062 
R =%000007 TST17 004770 SATYS 015274 $LFLG 013531 STMP2 001064 
SLUIIT 006262 TST2 003476 SATY4 013304 $LPADR 001006 STMPS 001066 
SLU2ZIT 007016 TST20 005126 $AUTOB 0010 $SLPERR 001010 STMP4 001070 
SLU2RT 004402 TST21 005310 $BASE 001154 SMADR1 001132 STN = 000054 
STACK = 001100 TST22 005472 SBDADR 001022 SMADR2 001136 $TPB 001052 
START 003016 TST235 ©005564 SBDDAT 001026 SMADR3S 001142 STPFLG 001057 
STKLMT= 177774 TST24 005626 014064 SMADR4 001146 STPS 001050 
SwWR 1040 TST25 005702 SCKSWR 014542 SMAIL. 001100 STRAP 015326 
SWREG 000176 TST26 006100 SCMTAG 001000 SMAMS1 001130 STRAP2 015350 
SwO = 000001 TST27 006262 $CMS = 0 SMAMS2 001134 STRP = 000012 
SwOO = 000001 TST3 003544 $CM4 = 000005 SMAMS3 001140 STRPAD 015362 
$WO1 = 000002 TST30 006430 SCNTLG 015277 SMAMS4 001144 STSTM 000504 
SWO2 = 000004 TST31 006550 SCNTLU 015272 SMBADR 000502 STSTNM 001002 
SWO5 = 000010 TST32 006704 $CPUOP 001126 SMFLG 013530 STTYIN Bz ete 
Sw04 = 000020 TST33 ©—007016 $CRLF 001075 SMNEW 015315 STYPDS 014516 
SwOS = 000040 TST34 007140 $SDBLK 014532 SMSGAD 001114 STYPE 013534 
SWO6 = 000100 TST35 007260 SDEVCT 001110 SMSGLG 001116 STYPEC 013746 
SWO7 = 000200 TST36 14 SDEVM 001156 SMSGTY 001100 STYPEX 014066 
SwO8 = 000400 TST37 §=©007556 SDOAGN 012332 $MS 015304 STYPOC 014114 
SwO9 = 001000 TST4 3714 SDTBL 014522 SMTYP1 001131 STYPON 014130 
Swi = 000002 TST40 007676 SEND 012322 SMTYP2 001135 $TYPOS 014070 
SW10 = 02000 TST41 010014 SENDCT giseit SMTYPS 001141 IT QO01112 
SW11 = 004000 TST42 010146 $6 012541 SMTYP4 0017145 SUNITM 000510 
SW12 = 010000 TST43 = 0010252 SENULL 012336 -$NULL_ 001054 $US AEE 
SW15 = 020000 TST44 010376 SENV 001120 SNWTST= 000001 $VECT1 001150 
SW14 = 040000 TST45 010464 SENVM 8 001121 SOCNT 014312 SVECT2 pO) 36 
SW15 = 100000 TST46 §=—010572 SEOP 012240 $ E 014314 SXOFF = 00002 
_ = 000004 TST47 §=©010664 SEOPCT ats 4 SOVER 013252 $XON = 000021 
SW = 000010 TST5 003772 SERFLG 00100 SPASS 001106 $XTSTR 015126 
SW4 = 000020 TST5O ©—.010762 $E 001015 SPASTM 000506 $$GET4= 
SW5 = 000040 TST51 =©011210 SERROR 012420 SPOWER 0135104 SOFILL 014313 
SW6 = 000100 TST52 011356 SERRPC 001016 SPWRDN 012736 ‘ = 0267 
SW7 == 000200 TST53S «= 0011474 SERRTB 001160 SPWRMG 013072 -SERRT 001160 
SW8 = 000400 TST 004032 SERRTY 012602 SPWRUP 015010 .$X = 000500 
Sw9 = 001000 TST7 004072 SERTTL 001012 SQUES 001074 
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ERRORS DETECTED: 0 
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TIME 
RUN-TIME RATIO: 66/35=1.9 
CORE USED: 22k (43 PAGES) 
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